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1 .  INTRODUCTION 

This  memo  presents  a  summary  of  the  progress  made  to  date  involving  the 
design  and  development  of  the  Institute  for  Simulation  and  Training's  Network 
and  Communications  Technology  Laboratory.  Within  this  laboratory 
there  are  two  functional  testbeds  which  house  the  equipment  and  capabilities 
required  for  carrying  out  the  specific  research  activities  of  this  project.  These 
functional  testbeds  are  the  Simulation  Network  Prototyping  Testbed  and 
the  SIMNET  World  Access  Testbed. 

2.  SIMULATION  NETWORK  PROTOTYPING  TESTBED 

This  testbed  supports  research  in  several  areas  pertaining  to  the  use  of  Local 
Area  Network  (LAN)  technology  for  interconnecting  Simulation  Training 
Devices.  These  research  areas  include:  Carrier  Sense  Multiple  Access  with 
Collision  Detection  protocol  networks  (i.e.,  ETHERNET),  Token-Ring  Networks, 
Fiber  Distributed  Data  Interface  (FDDI)  Technology,  Simultaneous  Voice  and 
Data  Transmission,  and  Non-Homogeneous  Simulator  Network  Interfacing. 

2.1  Testbed  Overall  Design  Approach 

A  flexible  design  approach  has  been  developed  and  adopted  for  the 
establishment  of  the  1ST  Simulation  Network  Prototyping  and  Assessment 
Testbed.  The  main  goal  of  this  approach  is  to  facilitate  the  investigation  and 
evaluation  of  alternate  network  protocols  using  PC-based  platforms.  The  PC's 
will  provide  each  SIMNET  node  with  a  quasi-contentionless  ETHERNET 
interface.  When  equipped  with  appropriate  network  controller  boards,  the  PC 
platforms  readily  provide  a  gateway  capability  between  networks  of  different 
topologies,  such  as  ETHERNET  and  token-ring.  Each  PC  will  also  be  capable 
of  operating  as  a  controller/protocol  translator  providing  the  necessary  services 
for  routing  SIMNET  packets  to  the  alternate  network  prototypes. 

2.2  Testbed  Implementation 

The  Hewlett-Packard  Vectra  386  PC/AT  Tower  System  will  be  used  as  a  data 
logger,  network  traf^c  generator  and  protocol  translator  for  the  Testbed.  Our 
initial  tests  and  evaluation  of  the  intelligent  Excelan  205E  ETHERNET  controller 
boards  have  revealed  that  such  intelligent  boards  would  not  be  able  to  capture 
all  the  broadcast  data  packets  generated  in  the  SIMNET  real-time  environment. 
Our  data  capture  prototyping  effort  will  be  based,  therefore,  on  dumb 
ETHERNET  controller  boards  tnai  ai«  upiii.il^d  tor  speed  cf  the  icw-ievei 
transmit/receive  operations.  The  high-level  TCP/IP  processing  capability  of  the 
intelligent  boards,  however,  will  still  be  used  to  provide  file  transfer  services  for 
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data  analysis,  software  development,  and  other  applications  requiring  PC-to-PC 
ETHERNET  communications. 

Because  of  the  many  features  of  token-ring  protocols,  coupled  with  the 
commercial  availability  of  token-ring  boards  for  the  PC,  our  alternate  network 
prototyping  effort  will  focus  on  building  a  token-ring  network  configuration  for 
the  SIMNET  environment.  Packets  captured  off  the  SIMNET  ETHERNET  by  the 
PC-platforms  will  be  used  to  drive  the  token-ring  LAN.  Various  performance 
tests  to  evaluate  the  token-ring  scheme  will  then  be  conducted. 

2.2.1  Ongoing  Activities 

The  following  is  a  summary  of  the  main  activities  that  have  b^en  carried  out 
during  the  first  phase  of  building  the  Alternate  Network  Testbed. 

•  We  have  gained  considerable  experience  on  using  the  3-Com  ETHERLINK 
II  dumb  ETHERNET  boards.  With  these  boards  installed  in  the  HP  Vectra 
20MHz  PC’s,  we  are  able  to  transmit  packets  with  data  passed  from  the  HP 
Vectra  to  the  3-Com  board,  of  length  64,128  and  256  bytes  at  rates  of  1.8, 
2.1  and  2.3  Mbits/sec.,  respectively.  Furthermore,  we  are  able  to  transmit 
packets  without  data  passed  from  the  HP  Vectra  to  the  3-Com  board,  of 
length  64,128  and  256  bytes  a*  rates  of  3.6,  4.9  and  6.4  Mbits/sec., 
respectively.  .  The  data  capture  capability  of  the  boards  using  a  single 
receive  buffer  is  approximately  one  half  of  the  transmit  capability  or 
IMbitc/sec.  These  measurements  were  made  over  Thin-Net  ETHERNET 
under  light  traffic  loads  with  minimal  collisions. 

•  We  have  begun  preliminary  efforts  towards  using  the  HP  Vectra's  to  perform 
data  logging  (i.e.,  to  read  broadcast  packets  off  the  SIMNET  ETHERNET, 
time-stamp  and  store  them  to  a  disk  or  tape  file).  These  early  activities 
include  experimentation  with  various  techniques  for  time  stamping, 
assessing  the  impact  of  missed  packets  on  playback  performance, 
experimentation  with  optimum  precision  of  time  reference  used  for 
timestamping. 

•  We  have  written  a  program  to  generate  EHTERNET  packets  and  transmit 
them  out  onto  the  network.  Currently,  we  are  working  on  techniques  to 
provide  programmable  delay  to  packet  transmissions,  as  well  as  generating 
packets  with  fixed  and  jittering  interarrival  times.  Software  used  to  generate 
simulated  packet  inter-arrival  times  in  the  network  simulation  software 
models  v/ill  be  reused  to  generate  actual  network  traffic.  This  will  allow  us  to 
perform  more  accurate  validation  experiments  on  the  software  models 
against  actual  hardware. 

•  We  have  written  C-language  programs  to  extract  and  manipulate  different 
fields  within  a  SIMNET  protocol  data  unit  (PDU).  These  programs  consist  of 
several  header  files  along  with  compilable  C-routines  and  have  been  used 
in  several  applications  including  capturing,  manipulating  and  retransmitting 
SIMNET  Ml  Jala  pdukwis,  as  we'*  as  capturing  ETHERNET  data  gaoKets 
from  non-SIMNET  simulators  and  translating  them  into  SIMNET  compatible 
packets 
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•  We  are  currently  able  to  pass  data  packets  across  the  4Mbits/sec  3-Com 
TOKENLINK  token-ring  network  boards  between  two  of  the  HP  Vectra's. 
Experiments  are  underway  to  determine  the  maximum  load  of  SIMNET 
packets  that  can  be  communicated  over  the  ring. 

•  We  are  currently  performing  tests  using  Concurrent-C  simulation  models  to 
compare  the  performance  of  the  early  token  release  protocol  of  token¬ 
ring  LAN's  with  that  of  the  late  token  release  version.  These  tests  will 
give  us  an  insight  into  the  significance  of  the  improvement  in  throughput 
attained  through  the  early  release  protocol,  as  well  as  the  amount  of  network 
overhead  required  to  support  prioritized  tokens. 

•  We  are  currently  building  a  predictive  mode!  to  investigate  the  greedy 
node  problem  in  Ethernet  simulation  networks.  In  our  preliminary  model, 
the  impact  of  a  greedy  node  on  the  transmission  of  a  single  non-greedy 
node  is  considered  and  the  corresponding  channel  probabilities  are 
tabulated.  It  is  hoped  that  this  type  of  modeling  will  help  us  evaluate  the 
magnitude  of  the  greedy  node  problem  and  its  impact  on  network  packet 
delay  and  packet  loss. 

•  We  are  in  the  process  of  completing  experiments  which  will  allow  us  to 
implement  ETHERNET-like  protocols  via  the  3-Com  Etherlink  II  boards. 
Tests  have  indicated  that  it  may  be  possible  to  discard  old  state  update 
messages  from  the  3-Com  board's  transmit  buffer  and  substitute  them  with 
new  (more  recent)  update  messages.  This  will  allow  us  to  improve  the  delay 
performance  of  the  standard  ETHERNET  protocol. 

NOTE:  Listings  of  all  software  programs  mentioned  above  are  included  as  an 
attachment. 

2.2.2  Planned  Activities 

The  following  activities  are  planned  ihe  next  phase  of  the  project: 

•  Improve  the  data  capture  capabilities  of  the  3-Com  Etherlink  II  ETHERNET 
controller  board  by  implementing  a  scheme  utilizing  multiple  receive  buffers. 
This  will  allow  us  to  determine  the  safe  operating  range  of  traffic  load  for 
which  minimal  data  loss  occurs. 

.•  Design  and  build  C-language  software  libraries  for  transmitting  and 
receiving  both  ETHERNET  and  token-ring  data  packets. 

•  Design  and  build  C-language  software  programs  for  performing  data 
logging  and  artificial  packet  generation  for  both  the  ETHERNET  and  token¬ 
ring  LAN's. 

•  Examine  the  token-ring  priority  scheme  and  evaluate  its  suitability  and 
potential  benefits  to  optimize  packet  management  in  the  SIMNET 
environment. 
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•  Begin  using  the  DURRA  software  analysis  too!  developed  by  Carnegie 
Mellon  University's  -  Software  Engineering  Institute.  This  application  is 
written  in  ADA  and  will  be  implemented  on  a  SUN  Workstation.  Plans  are  to 
use  DURRA  as  part  of  a  research  task  involving  the  use  of  intelligent  filtering 
techniques  applied  at  Gateways  which  interconnect  multiple  SIMNET  type 
networks  via  high  capacity  local  area  or  long  haul  networks. 

•  Continue  activities  involving  the  use  of  the  3-Com  Etherlink  II  board  to 
implcmon*  ETHERNET-like  protocols  and  investigate  the  capability  of 
changing  some  parameters  of  the  standard  ETHERNET  protocol  in  an  effort 
to  produce  priorities  on  the  network.  Such  parameters  include  the  packet 
slot-time  which  directly  affects  the  calculation  of  the  retransmission 
back-off  algorithm,  as  well  as  the  back-off  algorithm  itself.  We  will  also 
focus  on  the  implementation  of  a  modification  of  the  standard  ETHERNET 
protocol  that  reduces  packet  transmission  delays,  only  at  times  when  the 
channel  is  sensed  idle.  The  final  thrust  in  this  effort  will  be  to  implement  the 
GBRAM  protocol  by  utilizing  tne  3-Com  ETHERNET  board.  GBRAM  is 
superior  to  the  ETHERNET  protocol  for  medium  to  high  traffic  loads. 

2.3  Data  Analysis 

Data  Analysis  capabilities  in  the  laboratory  will  consits  of  hard  and  software 
which  will  be  used  to  manage  and  analyze  the  large  amounts  of  data  generated 
by  networked  simulators.  A  variety  of  test  experiments  will  be  conducted  in 
order  to  evaluate  the  performance  of  the  vairous  l_AN  configurations.  Different 
performance  measures  (e.g.,  packet  transmission  delay,  distribution  of  packet 
inter-arrival  times,  utilization  of  transmission  medium,  LAN  throughput,  etc.)  will 
be  collected  and  analyzed  (using  statistical  inference)  for  both  ETHERNET  and 
token-ring  LAN’s.  Some  of  the  statistical  tests  which  will  be  applied  include 
confidence  intervals,  analysis  of  variance,  goodness-of-fit  tests  (e.g.,  the 
Kolmogorov-Smirnov  test),  and  regression  analysis.  A  VAX  3100  workstation 
has  been  procured  and  will  be  used  for  the  performance  of  the  required 
statistical  tests  and  data  analysis  services. 

2.4.1  Ongoing  Activities 

The  following  is  a  summary  of  the  main  activities  that  have  been  carried  out 
during  the  first  phase  of  this  research. 

•  We  have  gained  considerable  experience  on  using  the  VAX  3100 
workstation  in  both  the  system  administration  and  user  areas. 

•  Graphics  software,  the  ULTRIX  (UNIX  for  VAX)  operating  system  and  some 
software  development  tools  for  the  VAX  3100  workstation  have  been 
received. 

•  Chris  Pinon  has  attended  the  VMS  System  Management  Class  I  to  aid  her  in 
administering  the  VAX  3100  (see  Memo  for  Record  from  Chris  Pinon  dated 
Nov.  20,  1989). 
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•  Local  Software  and  Hardware  support  has  been  established  through 
Dingital  Equipment  Computer  Users  Society  (DECUS).  Membership  has 
been  obtained  and  a  Local  User  Group  meeting  was  attended  (see  Memo 
for  Record  from  Chris  Pinon  dated  Nov.  29,  1989). 

•  Procurement  has  begun  for  statistical  packages  and  data  analysis  tools. 

2.3.2  Planned  Activities 

The  following  activities  are  planned  the  next  phase  of  the  project: 

•  Develop  a  list  and  a  detailed  description  of  the  performance  measures, 
statistical  experiments  and  data  analysis  tests  that  will  be  used  for 
evaluating  the  performance  of  the  ETHERNET  interface,  as  well  as  the 
prototype  netwoiks  to  be  implemented. 

•  Procure  any  statistical  software  packages  found  to  be  suitable  for  this 
project. 

•  Write  any  necessary  software  interfaces  needed  for  the  invocation  of  the 
statistical  packages  mentioned  above. 

•  Interface  VAX  DECNET  to  existing  laboratory  ETHERNET. 

2.4  Simultaneous  Voice  and  Data  Transmission  Research 

Research  involving  the  simultaneous  transmission  of  digital  voice  and  data  will 
be  conduced  utilizing  Digital  Signal  Processing  (DSP)  modules  interfaced  to  a 
networked  HP  Vectra  PC  platform.  The  Ariel  DSP56001  DSP  modules  were 
chosen  and  two  of  the  boards  were  procured  for  this  effort. 

2.4.1  Ongoing  Activities 

The  following  is  a  summary  of  the  main  activities  that  have  been  carried  out 
during  the  first  phase  of  this  research. 

•  We  have  received  the  DSP56001  boards  and  are  gaining  experience  on 
using  them  to  manipulate  voice  data  under  real-time  constraints. 

•  We  have  nearly  completed  the  program  to  packetize  the  digital  voice  data 
that  are  stored  in  the  memory  of  DSP56001  Board. 

•  We  are  in  the  process  of  writing  a  program  to  transfer  the  packetized  data 
from  the  DSP56001  board  to  the  3-Com  ETHERNET  board,  and  visa  versa, 
for  transmission  to  and  reception  from  the  ETHERNET  network. 

•  We  are  in  the  process  of  writing  a  program  to  reassemble  the  packetized 
data  located  in  the  memory  of  the  DSP56001  board  into  a  continuous 
stream  of  digital  data  for  subsequent  conversion  to  analog  information 
(voice). 
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2.4.2  Planned  Activities 

The  following  are  planned  activities  which  will  Pe  performed  during  the  next 

phase  of  the  project: 

•  Utilize  the  aforementioned  C-language  programs  to  extract  and  manipulate 
different  fields  within  a  protocol  data  unit  (PD'J)  in  order  to  send  the  voice 
data  over  the  network  in  a  form  that  is  consistent  with  ^he  SIMNET 
communication  protocol  standard. 

•  Utilize  the  capabilities  of  the  DSP56001  board  to  distort  the  digitized  voice 
information  in  a  manner  that  corresponds  to  the  degradation  of  the  analog 
voice  signal  in  the  actual  battle  environment  (RF  phenomena). 

•  Show  experimentally,  by  using  the  DSP56001  board,  the  percentage  of  lost 
voice  packets  that  we  can  accommodate  without  affecting  the  clarity  of  the 
voice  signal.  This  will  allow  us  to  find  the  number  of  concurrent  voice 
conversations  that  the  network  can  support  in  the  ETHERNET  protocol 
environment. 

•  Use  the  DSP56001  boards  to  show  the  effect  of  certain  signal  processing 
techniques  on  the  digitized  speech  signals  (i.e. ,  data  compression,  coding, 
voice  liincner  tests).  By  doing  so  we  will  expect  to  accommodate  more 
simultaneous  voice  conversations  on  the  network. 

•  Examine  the  ETHERNET  boards  carefully  to  determine  the  possibility  of 
implementing  an  alternative  protocol  (other  than  EiHERNET)  that  can 
support  simultaneous  voice  and  data  transmission  over  the  network. 

2.5  Non-Homogeneous  Simulator  Network  Interfacing 

The  goal  of  this  research  is  to  provide  a  proof-of-principle  demonstration  of 
interconnecting  non-homogeneous  simulators  via  a  common  network,  and 
provide  the  means  for  them  to  interact  with  one  another. 

This  activity  is  on-going  in  nature  and  centers  on  the  interconnection  of  non- 
SIMNET  devices  (such  as  the  ASAT's,  the  Silicon  Graphics'  Networkable  Flight 
Simulator,  the  SUN  Microsystems'  AVIATOR  Networkable  Simulator,  and 
others)  with  the  existing  1ST  SIMNET  devices.  Protocol 
translation/transformation,  intelligent  filtering  techniques  for  gateways  used  to 
interconnect  LAN’s  of  differing  topologies,  and  techniques  for  handling 
inconsistencies  in  data  protocol  formats  between  dissimilar  simulations  are 
some  of  the  research  areas  being  investigated  under  this  task. 

3.  SIMNET  WORLD  ACCESS  TESTBED 

Providing  access  to  the  SIMNET  World  is  one  of  the  major  capabilities  1ST  is 
developing  in  the  Network  and  Communications  Technology  Laboratory. 
Additional  SIMNET  modules  are  being  acquired  to  enhance  the  existing  suite  of 
SIMNET  equipment.  These  new  modules  include  a  Stealth  Vehicle,  a  Plan 
View  Display,  a  Data  Logger/Playback  System  and  a  Long  Haul 
Communications  Gateway.  The  addition  of  this  equipment  will  provide  a  wide 
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range  of  SIMNET  capabilities  to  support  ongoing  research  efforts  in  the  areas  of 
alternate  network  implementations,  digital  voice  transmission,  network 
benchmarking,  and  Long  Haul  Networking. 

3.1  1ST  SIMNET  Network  Con'igurctlon 

As  mentioned  earl.er,  the  current  SIMNET  configuration  uses  an  ETHERNET 
network  to  provide  data  communications  between  simulators.  The  SIMNET-T 
site  at  Ft.  Knox  uses  an  interconnect  scheme  which  connects  up  to  eight 
SIMNET  modules  together  via  a  multi-port  transceiver  box,  which  in  turn  is 
attached  to  the  ETHERNET  coaxial  cable.  In  the  1ST  Lab,  the  SIMNET  modules 
are  interconnceted  via  a  THIN-NET  ETHERNET  network.  THIN-NET  uses  50 
ohm  coaxial  cable  similar  to  RG58  to  interconnect  the  nodes  on  the  network. 
Each  node  has  a  small  transceiver  attached  directly  to  it  which  provides  the 
required  interface  to  the  coaxial  cable.  This  THIN-NET  implementation  provides 
a  flexible  interconnect  scheme,  without  any  loss  in  performance  and  is  more 
suited  to  laboratory  requirements. 

Currently  in  the  1ST  Laboratory,  there  are  several  dusters  of  computers  which 
are  being  used  for  various  research  activities.  By  running  a  aeries  of  coaxial 
cables  around  the  lab  we  are  able  to  provide  a  variety  of  interconncetions 
between  the  clusters.  For  example,  the  SIMNET  modules  are  linked  together  in 
one  cluster  and  the  networking  research  equipment  (HP  LAN  Analyzer  and 
PC’s  with  ETHERNET  cards)  are  linked  in  another.  These  two  clusters  can  be 
tied  together  whenever  desired  by  simply  removing  two  cable  termination 
devices  and  hooking  the  two  cables  together.  This  scheme  allows  for  the 
sharing  oi  resources,  no  matter  where  they  may  be  physically  located  in  the  lab. 

3.2  SIMNET  Compatible  Interconnect  Capabilities 

This  capability  in  the  lab  refers  specifically  to  the  concept  of  providing  gateways 
into  the  SIMNET  World.  The  first  gateway  to  be  procured  will  be  a  BBN  SIMNET 
Gateway.  This  gateway  is  based  on  the  BBN  Butterfly  computer  and  most 
probably  will  be  a  dosed  system,  meaning  that  we  will  have  no  way  to  alter  its 
software  and/or  hardware  to  experiment  with  it.  The  SIMNET  Gateway  is  being 
procured,  and  is  expected  to  be  delivered  to  1ST  within  the  next  two  months. 

Commercially  available  long  haul  networking  hardware  is  currently  being 
evaluated  to  determine  its  suitability  for  the  SIMNET  application.  Details  of  this 
evaluation  can  be  found  in  the  attached  memo.  No*es  on  1ST  Long-haul 
Interconnectivity,  dated  11/29/89.  To  achieve  interconnectivity,  we  v  ill 
procure  several  ETHERNET  bridges  which  wiil  allow  for  limited  dial-up  access 
to  the  1ST  SIMNET  world,  as  well  as  support  research  being  performed  in  the 
area  of  Long  Haul  Networking. 

We  have  initiated  conversations  with  personnel  at  Human  Engineering  Labs 
(HEL)  in  Aberdeen  Proving  Grounds,  MD.  Preliminary  plans  are  to  establish  a 
long  haul  link  between  the  1ST  SIMNET  Laboratory  and  HEL's  laboratories. 
There  are  tentative  travel  plans  for  two  1ST  researchers  to  visit  HEL  (Aberdeen, 
MD)  during  the  month  of  January  1990  to  further  discuss  this  project. 
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3.3  Simulation  Network  Performance  Benchmarks 

The  functional  requirements  for  a  set  of  benchmarks  to  be  used  to  evaluate 
training  device  network  performance  and  interfacing  capabilities  will  be 
established.  These  benchmarks  will  aid  in  the  validation  of  interfacing  methods 
between  non-homogeneous  simulators  and  compatibility  with  the  current 
SIMNET  communications  protocol  standard.  The  benchmarks  will  consist  of  a 
set  of  software  programs  which  will  perform  automated  analysis  of  incoming 
network  data,  either  in  real-time  or  off-line,  and  will  provide  an  orderly  method  of 
evaluating  n  networked  training  device's  network  performance. 

Initial  benchmark  development  efforts  will  employ  the  use  of  the  VAX  3100 
workstation  for  software  development  and  data  analysis.  This  benchmark,  work 
depends  highly  on  the  simulation  network  protocol  standards  currently  under 
development.  Therefore,  these  activities  will  be  closely  monitored  and  attended 
to  ensure  benchmark  analysis  techniques  are  valid  meaningful  measures  of 
performance. 

Our  initial  evaluations  indicate  a  software  system  called  DURRA  might  be  a 
useful  tool  to  aid  in  benchmark  development.  DURRA  was  developed  by  the 
Software  Engineering  Institute  (SE!)  at  Carnegie  Mellon  University.  1ST  is  the 
first  site  to  receive  DURRA.  DURRA  is  essentially  a  system  for  predicting  the 
preformance  networked  computing  nodes.  DURRA  provides  a  flexible 
environment  for  specifying  the  interconnection  of  tnese  nodes  (i.e.  network 
topology),  as  well  as  predicting  the  system  performance  under  varying  loades 
and  usages.  DURRA  programs  can  be  written  which  can  perform  network 
assessments  off-line.  On-line  assessments  will  require  enhancements  which 
will  be  pursued  by  1ST  and  SEI. 

4.  CONCLUSIONS 

This  report  has  presented  a  summary  of  the  procurements,  activities  and 
progress  made  towards  the  development  of  the  1ST  Network  and 
Communications  Technology  Laboratory.  Comments  and/or  suggestions  are 
encouraged  and  should  be  directed  to: 

Jack  Thompson 

Institute  for  Simulation  and  Training 
University  of  Central  Florida 
12124  Research  Parkway 
Orlando,  FL  32826 
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ATTACHMENT  A 


MEMORANDUMS 


MEMORANDUM  FOR  RECORD 


To:  Jack  Thompson 

From:  Chris  Pinon 

Subject:  VMS  System  Management  I  Class 

November  13-17 
DEC  Education  Center 
Maitland,  Florida 

Date:  November  20,  1989 


Purpose : 

The  purpose  of  taking  this  class  was  to  become  more  familiar  with 
the  VAXstat ion's  operating  system  and  to  learn  skills  and 
commands  associated  with  managing  the  system.  The  VAXstation 
3100  is  an  integral  part  of  the  Networking  laboratory.  The 
training  was  necessary  to  aid  in  the  integration  of  the  VAX  onto 
the  network. 


Key  Topics: 

The  class  provided  an  overview  of  the  VMS  operating  system  and 
the  role  of  the  system  manager  in  maintaining  the  system.  Topics 
discussed  include: 

•  Understanding  the  User  Environment 
Managing  System  Users 

-  Managing  Queues 

-  Managing  Disk  and  Tape  Volumes 

-  Customizing  the  System 

-  Starting  Up  and  Shutting  Down  the  System 

-  Maintaining  System  Integrity 

-  Monitoring  System  Performance 

-  Installing  and  Updating  System  Software 


Conclusion : 

The  class  provided  an  excellent  overview  of  the  VMS  operating 
system  and  gave  the  student  many  valuable  tools  that  can  be 
implemented  immediately.  The  class  fulfilled  the  purpose 
detailed  above. 


Copy  to: 

B.  Goldiez,  S.  Smith,  J.  Cadiz,  R.  Ouyang,  M.  Georgiopoulos , 
M.  Bassiounni 


,  \  ~ 


Memorandum 


To:  Jack  Thompson 

From:  Chris  Pinon 

Subject:  Central  Florida  DECUS  LUG 

November  Meeting 
Merritt  Island  Public  Library 
Date:  November  29,  1989 

Purpose : 

The  purpose  of  the  meeting  was  to  meet  with  members  of  the 
Central  Florida  DECUS  LUG  (DEC  users  Local  Users  Group) .  This 
group  is  a  valuable  resource  for  help  concerning  the  VAXstation. 
This  is  the  first  meeting  attended  since  joining  DECUS.  I  also 
sought  contacts  to  help  with  the  transfer  of  data  from  one  type 
of  tape  media  to  another,  an  activity  essential  for  the 
statistical  study  of  the  SIMNET  data  packets  and  for  examining 
the  program  from  Carnegie-Mel .on  University 

Key  Topics: 

The  meeting  took  place  at  the  Merritt  Island  Public  Library  and 
began  at  9:00  am.  The  meeting  proceeded  as  follows: 

1)  DECUS  business 

2)  DIGITAL  update  -  an  overview  of  new  products  on  the 
market 

3)  "Leveraging  PC  Applications  on  the  VAX"  -  a  presentation 
by  RECITAL  Corporation 

LUNCH  BREAK 

4)  " PCS A  and  386WARE”  -  a  presentation  by  Bob  Thomson, 
Computer  Operations  Supervisor  for  Martin  Marietta 
Aerospace,  KSC 

5)  General  Question  and  Answer  session  -  A  chance  for  all 
to  discuss  problems  and  solutions.  Also  a  chance  to  share 
tips  and  shortcuts. 

The  meeting  ended  at  3:30  pm.  I  spent  some  time  talking  to  Mr. 
Christopher  Korson,  Software  Engineer  for  Level  Five  Research, 
Inc.  in  Indialantic.  He  has  the  means  to  transfer  8mm,  9mm  and 
TK7 0  tapes  to  the  TK50  format  our  computer  requires.  All  1ST  has 
to  do  is  provide  the  tape. 

Conclusion: 

This  meeting  provided  some  valuable  information  concerning  VAX 
computers  in  general  and  some  SW  products  available  on  the  market 
at  this  time.  It  also  provided  some  business  contacts  that  may 
be  valuable  in  the  near  future. 


Copy  to: 


B.  Goldiez,  G.  Winkler,  M.  Bassiouni 


To:  Jack  Thompson 

From:  Jorge  Cadiz 

Date:  11/29/89 

Subject:  Notes  on  1ST  Long-haul  Interconnectivity 

•  It  seems  that  we  have  the  choice  to  make  as  far  as  what 
type  of  interface  device  we  would  like  to  use  in  the  Long- 
haul  environment .  The  three  devices  that  we  can  use  are 
Bridges,  Routers,  and  Gateways.  Following  are  definitions 
for  these  devices.  These  definitions  were  extracted  from 
TRW's  Unified  LAN  I  Components  Guide  (July,  1989). 

Bridge:  A  router  that  connects  two  or  more  networks  and 

forwards  packets  among  them.  Usually,  triages  operate  at 
the  physical  network  level.  For  example,  an  ETHERNET 
bridge  connects  two  physical  ETHERNET  cables  and  forwards 
from  one  cable  to  the  other  exactly  those  packets  that  are 
not  local.  Bridges  differ  from  repeaters  because  bridges 
store  and  forward  complete  packets  while  repeaters  forward 
electrical  signals. 

Router:  Any  machine  responsible  for  making  decisions 

about  which  of  several  paths  network  (or  Internet)  traffic 
will  follow.  At  the  lowest  level,  a  physical  network 
bridge  is  a  router  because  it  chooses  whether  to  pass 
packets  from  one  physical  wire  to  another.  Within  a  long 
haul  network,  each  individual  packet  switch  is  a  router 
because  it  chooses  routes  for  individual  packets.  In  the 
Internet,  each  IP  gateway  is  a  router  because  it  uses  IP 
destination  addresses  to  choose  routes. 

Gateway:  A  special  purpose,  dedicated  computer  that 

attaches  two  or  more  networks  and  routes  packets  from  one 
to  the  other.  In  particular,  an  Internet  gateway  routes  I? 
datagrams  among  the  networks  to  which  it  connects. 

Gateways  route  packets  to  other  gateways  until  they  can  be 
delivered  to  the  final  destination  directly  across  one 
physical  network.  The  term  is  loosely  applied  to  any 
machine  that  transfers  information  from  one  network  to 
another,  as  in  mail  gateway . 

•  After  looking  at  some  literature  on  the  three  devices,  it 
seems  that  a  bridge  may  be  the  type  of  device  that  we  may 
want  to  procure.  Bridges  are  generally  faster  than 
routers,  and  they  perform  packet  filtering  in  order  to 
prevent  some  of  the  "local"  traffic  from  getting  onto  the 
long-haul  medium. 

•  Routers  seem  like  they  may  provide  more  functions  than  are 
necessary  for  our  application.  In  the  SIMNET  environment  a 
large  percentage  of  the  traffic  has  a  broadcast  destination 
address.  This  means  that  most  of  the  traffic  generated  at 
the  different  nodes  will  be  looking  to  be  transmitted  over 


the  network.  This  will  require  a  "dumb"  interface  which 
simply  passes  the  traffic  to  the  remote  location. 


•  A  gateway  will  provide  a  connection  between  two  segments  of 
network  that  are  driven  by  a  different  type  of  protocol. 
These  "protocol  translators"  are  not  what  we  need  since  the 
SIMNET  units  communicate  with  the  same  protocols . 


•  Following  is  a  diagram  which  is  my  perception  of  the  long- 
haul  network  that  will  be  established  by 
1ST 


E-NET 


Bridges,  Routers,  Brouters,  etc.  Here  is  a  table  which 
summarizes  the  pricing  information. 


Company 

Device 

Price 

Advanced 

Computer 
Communicat ions 

ACS  4110 

Remote  ETHERNET 
Bridge 

$7,500 

Advanced 

Computer 

Communications 

ACS  4030 

Remote  ETHERNET 
Bridge 

$4, 975 

Halley  Systems 

ConnectLAN  100 
Local  and  Remote 
Brouter 

$? 

Blackbox 

Corporation 

Remote  Bridge 
56Kbps 

$6, 600 

Blackbox 

Corporation 

Remote  Bridge 

T1 

=  $12k 

A-'. 


ATTACHMENT  B 


LIST  OP  ALL  SOFTWARE  PROGRAMS 


j*  *  / 

I*  CT03I.C.C  */ 

/  *  *  / 

/*  Description:  This  file  contains  the  code  which  calls  the  funtions  */ 

1*  provide  by  the  CTG3L . ASM  to  receive/transmit  packets  */ 

*  through  3COM  EtherLinkii  board.  */ 

/  *  *  / 

I***************************************************************************/ 


^include  <stdio.h> 

3  xtern  clni tAdapters t  )  ; 
xtern  cln i tParameters (  )  ; 
xtern  cResetAdapter <  )  : 
extern  eWhoAml <  1  ; 

[xtern  cRdRxFi  lter(  1  : 

Ixtern  eWrRxFilterf  1  ; 
extern  cPutTxData (  )  : 
jxtern  cGetRxData f  )  : 
xtern  cSetl.ookAhead  i  1  : 
extern  cXm i 1 1  I  >  ; 

'xtern  cRcvSomei  1  : 

ma  i  n  <  > 

>*»  J 

i  -j  -i  • 

struct  ini  hdr  < 
j  char  1 e  n : 

j  char  non! ; 

char  nonJ : 
char  non 3 [  /  1  ; 
j  char  non4 [ 4  i  : 

*  char  nont 141: 

char  nonh : 
char  cdend t 4 ] : 
char  *argo; 
short  aras; 

I  char  non? ; 

!  >  : 

struct  WhoStruct  ( 

unsigned  char  addrf 6  ]  ; 
char  ver  major; 
char  ver  minor; 
char  sub  ver; 
i  char  type  ds ; 

char  type  adapter; 
char  init  status; 
char  reserved; 
char  numytran  buf; 
short  size  tran  buf  ; 

’  long  ttl  tran  cnt; 

long  ttl  tran  err  cnt; 
long  ttl  tran  timeout  cnt; 
long  ttl  reap  cnt; 
long  ttl  recv  bdr  cnt; 

Iona  ttl  recv  err  cnt; 
long  ttl  retry  cnt; 
char  xt  r  mode ; 


char  wait  mode: 
char  hdr  srec  data: 


struct  PktStr  f 

char  i np[ 1500]  : 

\  : 


struct  WhoStruct  far  *Who ; 
struct  PktStr  far  *Pkt: 
struct  ini  hd"  *parmsdr; 

int  tt.lpl,  nb.  flags,  reqid.  nreaid: 
char  far  *paddr  =  "This  is  a  test  only"; 


int  rc,  rxf=0x000c.  rrxf  .  Adapters=0; 
int  rs  =  0.  ic.nt  =  0: 


parmsdr-c1 en=0xl 7  ; 
parmsdr->nonl=0x00; 
parmsdr-  >r,on2  -  0x00  ; 
parmsdr-.'-non.l  [  0  1-0x00  : 


narmsdr->non3 f 1 1=0x00: 


parmsdr-:-non4 
parmsdr->non4 
parmsdr-  -non4 
oa  rmsdr-  >non4 


0  ]  =  0  X  0  0  : 

1  1=0x00 : 

2  !=0x00  : 
F 3 1=0x00 ; 


parmsd r- > non  5 


3=0x00 r 


parmsdr-  -nonh f 1  J  =  0x00: 
parmsdr-  -non5 [ 2  ]=0x00  : 
parmsdr- >nonS [ 3  ]  =  0x00 : 


parmsdr->non6=0x00 : 
pa  rmsd r- >cdend [ 0  1  =  0x00; 
parmsdr-  -cdend !  1  1=0x00: 
parmsdr-  - -  edend [  2  1  =  0x0  0; 
parmsdr-  --cdend  [  3  ]  =  0x00; 

/*  parmsdr->arqo  =  "c:\3com\ether503.sys  ,/a  :  2e0  ,/m :  4 :  1  ,/d  :  1  /  i  :  3  \ n 
parmsdr->arao  =  "c  :  \  \  3com\  \ether503  .  sys  ,/A:2e0  ,/D:l  /T:3\0x0a"; 

parmsdr->arqs=qetds i  1  ; 
parmsdr->non7=0x00 : 


rc  -getds (  1  ; 

pr i ntf  t "getds  Oxsxin" . rc ) ; 

rc=c I n i t Parameters ( parmsdr 1 ; 

pr i ntf ( "clni tParameters  returns  %d\n",rc); 

rc=cln i t Adapters ( & Adapters  1 ; 

pr intf ( "cTni tAdapters  returns  %d ,  Adp=%d\ n" , rc ,  Adapters); 
rc=cSetLookAhead ( 32 1 ; 

pr  i  nt f  (  "cSetLookAhead  returns  °<d\n"  ,rc)  ; 
rc=cWhoAmT  < &Who 1 ; 

pr i ntf ( "cWhoAml  returns  %d\n",rc); 
printf("addr  =  %02x  %02.x  %02x",  Who->addr  [  0  ]  , 

Who->addr[ 1 ] ,  Who->addr[ 2 ] 1 ; 
printfr"  %02x  %02x  %02x\n"/  Who->addr  [  3  ]  , 

Who->addr [ 4  ]  ,  Who->addr [ 5 ] ) ; 

pr i ntf ( "ver  maior  %02x  ver  minor  %02x\n",  Who->ver  major,  Who-svpr 
nr  i  nt  f  f  "transfer  mode  °,x  wait  mode  %x\n"  ,  Who--xfr  mode.  Who-'-wait 
pr  i  ntf  f  "tt  l  recn  cnt  id  f0x‘4x)\n",  Who-'-tt  1  recp  cnt  .  who-'-tt  i  rec 

15-2 


m i nor  1 
mode  1  : 
n  cnt  i 


! 


rc=cWrRxFi Iter ( rxf  )  ; 

pr i ntf ( "cWrRxFi 1 ter  returns  %d\n",rc); 
rc=cRdRxFilter(&rrxf)  ; 

printf ( "cRdRxFilter  returns  %d ,  f i lter=%x\n" , rc , rrxf ) ; 
r*s  —  r  *  * 

printf ( "Receiver  or  Sender  ?  (r/s)\n" ); 
while  (  ( ( rs  =  getcharf))  1=  'r')  &&  ( rs  !=  's')  )  { 

pri ntf ( "Receiver  or  Sender  ?  (r/s)\n" ); 

!  ; 

if  (  rs  ==  ' r ' )  i 

while  (  1 kbhi t  f )  )  ' 

rc=cRcvSome ( &Pkt )  ; 
if  ( rc  >  0 1  j 


pr i ntf ( "cRcvSome  returns  %d\n",rc); 
for  (i=0;  i<rc;  i++) 

printf ( "%02x" , Pkt->inp[ i  n  ; 

) 

i 

pri ntf i  "Total  input  count  %d\n" , i cnt )  : 

i 

else  ( 

tt  1  p  1  -■  0x6  4  ; 

nb  -  0x6 4  : 

f  lags  =  0x0060  ; 

req id  =  0x0001  ; 

nreqi d  -  0x001 1  : 

for  (  i  =0 ;  i <1 0  ;  i ++ )  < 

rc=cXmi  1 1  ( ttlpl  ,  nb.  flags,  reqid,  paddr,  &nreaid); 

) 

i 

rc--cResetAdapter (  )  ; 

pr i ntf ( "cResetAdapter  returns  %d\n",rc); 
exit  [  0  )  ; 


'•.old  mvRxProcess  (  Status  ,  PacketSize,  RequestID,  PacketHeader ) 

:nt  Status,  PacketSize,  RequestID; 

Char  far  *PacketKeader ; 

/*  f  pr  i  ntf  (  stderr  ,  "Cal  1  ed  by  ASM  -  myRxProcess\nNot  implement  vet\n" ); 
fprintf(stderr,"Status=%d,  Packets i ze=%d ,  ReauestID=%d\n" , Status , Packet Si ze , 
Request TD) ?  */ 


void  myTxProcess ( Status ,  RequestTD) 
int  Status,  RequestID; 

/*  pr i ntf ( "Ca 1 1 ed  by  ASM  -  mvTxProcess\nNot  implement  yet\n"); 
pr i ntf < "Status=%d ,  Request I D=%d\n" , Status ,  RequestID);  */ 


void  mvF.x  i  tRcvI  nt  (  ) 

■'*  nr  i  ntf  (  "Ca  1  1  ed  bv  ASM  -  mvFx  i  feRcvT  nt\ nNot  imnlement  vet\n")  :  */ 

H-  1 


title  cto31.asm 


-j  F  i  1  e  : 

CTQ3L. ASM 

,'Description :  This  file 

contains  subroutines  which  provide  a 

t 

i 

C  program 

with  an  interface  to  the  3L  1.0  routines. 

|  *************************************************************** ********** 

]  Functions  called  by  C 

PUBLIC 

_getds 

PUBLIC 

_cln it Parameters 

fUBLIC 

_cInitAdapters 

Public 

_cReset Adapter 

public 

_cWhoAmI 

Public 

cRdRxFi Iter 

Iublic 

_cWrRxFi Iter 

PUBLIC 

_cPutTxData 

PUBLIC 

cGetRxData 

PUBLIC 

_cSetLookAhead 

PUBLIC 

_etext 

Public 

_cRcvSome 

public 

_cXmit 1 

(Need  to  be  written  in  C 

‘Xti  n 

__myExitRcvInt 

:  near 

extrn 

_myRxProcess 

:  near 

jxtrn 

_myTxProcess 

:  near 

; Functions  provide  by  this  file 

PUBLIC 

ExitRcvInt 

Public 

RxProcess 

PUBLIC 

TxProcess 

t  3L  functions 

pxtrn 

Ini tParameters 

:  near 

extrn 

Ini tAdapters 

:  near 

“xtrn 

WhoAmI 

:  near 

?xtrn 

ResetAdapter 

:  near 

cixtrn 

RdRxFi Iter 

:  near 

extrn 

WrRxFilter 

:  near 

^xtrn 

GetRxData 

:near 

fextrn 

Set Look Ahead 

:  near 

extrn 

PutTxData 

:  near 

equ  Oah 

cr 

equ  Odh 

Pprint 

macro  strloc 

;print  string  at  strloc 

1 

local  strloc 

push  ax 

push  cx 

push  ds 

push  dx 

mov  dx,seg  strloc 

mov  ds,dx 

R-4 


_TEXT 

jgetds 

1 

_getds 


SEGMENT 

ASSUME  CS : _TEXT ,  DS:DGROUP,  SS:DGROUP 


proc  near 

mov  ax,ds 

raov  cs:his_ds,ax 

ret 

endp 


•.clnitAdapters:  This  procedure  provides  the  glue  between  a  C 

I  program  and  the  3L  1.0  InitAdapters  function. 

f 

; Cal ling  Seguence : 

1  int  clnitAdapters ( &nAdapters ) 


;  Input  Parameters: 
j  None 

; Output  Parameters: 

:  int  nAdapters 

/Returns : 

;  The  return  value  of  the  Tni tAdapters  function 


I 

f 

t 


clnitAdapters  proc  near 
push  bp 

mov  bp,sp 

push  si 

push  di 

push  ds 

mov  ax,cs 

mov  ds,ax 

mov  di, offset  CODE : RxProcess 

call  InitAdapters 

pop  ds 

mov  di,word  ptrfbp+4] 

mov  word  ptr[di],cx 

pop  di 

pop  s  i 

pop  bp 

ret 

clnitAdapters  endp 


_cInitParameters :  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  InitAdapters  function. 


lCalling  Sequence: 

I  int  clnitParameters ( Parras ) 

i 

.•Input  Parameters: 

I  char  *Parms  -  Pointer  to  a  structure  with  overrides  of  default 


B-h 


parameters . 


Output  Parameters: 
None 


Returns : 

The  return  value  of  the  InitParameters  function 


clnitParameters  proc  near 


push 

bp 

mov 

bp ,  sp 

push 

si 

push 

di 

push 

ds 

mov 

bx , [ bp+4  ] 

mov 

ax ,  ds 

mov 

es  ,  ax 

mov 

ax ,  cs 

mov 

ds ,  ax 

ca  1  1 

savvecs 

ca  1  1 

I  n i tParameters 

pop 

ds 

POP 

d  i 

pop 

s  i 

pop 

ret 

bp 

clnitParameters  endp 


i 

;  cResetAdapter:  This  procedure  provides  the  glue  between  a  C 
j  program  and  the  3L  1.0  ResetAdapters  function. 

.-Calling  Sequence: 
i  int  cResetAdapter ( ) 

, 'Input  Parameters: 

;  None 

(output  Parameters: 

;  None 

Returns : 

;  The  return  value  of  the  ResetAdapter  function 


’cResetAdapter  proc  near 


push 

bp 

mov 

bp ,  sp 

push 

s  i 

push 

d  i 

push 

ds 

mov 

dx ,  0 

mov 

ax ,  cs 

mov 

ds  ,  ax 

mov  dl  ,  0 

call  ResetAdapter 

call  f i xvecs 

pop  ds 

pop  d  i 

pop  s  i 

pop  bp 

ret 

cResetAdapter  endp 


J.cWhoAmI:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  WfoAmT  function. 

[Calling  Sequence. 

;  int  cWhoAml v &WhoPtr 1 

•iTnput  Parameters: 

None 

:  Output  Paraneters: 

struct  WhoStruct  far  *WhoPtr  -  Far  pointer  to  the  WhoAml  structure 

1 

:  R  e  t  u  r  n  s  : 

I  The  return  value  of  the  Who A" I  function 


^c.vhoAml  proc  near 
1  ,  . 


push 

bp 

nov 

bp ,  sp 

push 

s  i 

push 

di 

push 

ds 

mov 

dx  ,  0 

mov 

ax  ,  rs 

mov 

d  s  ,  a  x 

ca  1  i 

WhoAml 

pop 

ds 

mov 

si , [ bp+4 ] 

1 

mov 

Word  ptr 

i  s  i  ]  ,  d  i 

mov 

Word  ptr 

[ si +2  1  , es 

pop 

d  i 

pop 

si 

pop 

ret 

bp 

cWhoAmT  endp 


;  cRdRxF i 1  ter :  This  procedure  provides  the  glue  between  a  C 

program  and  the  31,  1.0  RdRxFilter  function. 
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; Cal  ling  Sequence: 
j  int  cRdRxFi 1 ter( &RxFilter ) 

; Input  Parameters: 
r  None 

, ‘Output  Parameters: 

:  int  RxFilter  -  The  receive  filter  value 


‘Returns : 

The  return  value  of  the  RdRxF.il  ter  function 


cRdRxFi 


1 

I 

i 


cRdRxFi 


Iter 

proc  near 

push 

bp 

TTIOV 

bp ,  ~.p 

push 

si 

push 

di 

push 

ds 

nov 

ax  ,  cs 

TTIOV 

d s  ,  ax 

nov 

d>: ,  0 

ca  1  ! 

RdRxFi Iter 

pop 

ds 

nov 

d  i  ,  ;  bp-  4  ] 

nov 

d  .  ;  ,  tax 

pop 

d  i 

pop 

s  i 

po  p 

bp 

ret 

1  to** 

endn 

l  cWrRxFi  1  ter :  This  procedure  provides  the  glue  between  a  C 

prooram  and  the  3L  1.0  WrRxFilter  function. 

:Cal 1 i nq  Sequence: 

int  cWrRxFi ltor(RxFi Iter) 

:  I  nput  Parameters  : 

int  RxFilter  -  The  new  receive  filter  value 

:  Output  Parameters: 

None 

Returns: 

The  return  va 1 ue  of  the  WrRxFilter  function 


cWrRxFi Iter  proc  near 


push 

bp 

mov 

bp,sp 

push 

ds 

p>ush 

s  i 

rush 

d  l 

; - '  > 


I 


mov 

ax  ,  cs 

mov 

ds  ,  ax 

mov 

dx  ,  0 

mov 

ax , [ bp+4 ] 

cal  1 

WrRxF i 1  ter 

pop 

d  i 

pop 

s  i 

pop 

ds 

pop 

ret 

bp 

Iter 

endp 

;  _cSetI.ookAhead :  This  procedure  provides  the  glue  between  a  C 

i  program  and  the  3L  1.0  SetLookAhead  function. 

.•Calling  Sequence: 

:  i  nt.  cSetr ookAhead ( NumBytes ) 

!  Input  Parameters: 

:  int  NumRvtes  -  The  nnumber  of  bytes  of  look  ahead  data 


jOutput  Parameters: 
i  None 

Returns : 

;  The  return  value  of  the  Setl, ookAhead  function 


.cSetl  .ookAhead 

proc  near 

push 

bp 

mov 

bp ,  sp 

push 

s  i 

push 

d  i 

push 

ds 

mov 

ax  ,  cs 

mov 

ds ,  ax 

mov 

dx ,  0 

mov 

ax, ( bp+4 } 

ca  1  1 

SetLookAhead 

pop 

ds 

pop 

d  i 

pop 

s  i 

pop 

bp 

ret 

cSet Look Ahead 

endp 

cPutTxData:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  PutTxData  function. 

Calling  Sequence: 
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;  int  cPutTxData ( Total PacketLen ,  NumBytes ,  Flags,  RequestID, 

•j  PacketAddr,  &NewRequestID) 

;^Tnput  Parameters: 

;  int  TotalPacketLen  -  The  total  packet  length  (first  call  only) 

Iint  NumBytes  -  The  nnumber  of  bytes  to  transfer  this  call 
int  Flags  -  The  DL  flags 
;  int  RequestID  -  Used  if  not  the  first  call 

|  char  far  *  PacketAddr  -  A  far  pointer  to  the  packet 

;Output  Parameters: 

*.  int  NewRequestID  -  Returned  after  first  call 
/Returns : 

;  The  return  value  of  the  PutTxData  function 


cPutTxDAta  proc  near 


'  push 

bp 

mov 

bp,sp 

push 

s  i 

,  push 

d  i 

push 

ds 

mov 

ax  ,  ds 

mov 

es ,  ax 

mov 

bx , [ bp+4  ] 

mov 

cx , ( bp+6 ] 

mov 

dl,byte  ptr[bp+8] 

mov 

dh,byte  ptr[bp+10] 

mov 

s i , [ bp+1 2  ] 

mov 

di., offset  CODE : TxProcess 

mov 

di,0ffffh  ;  no  TxProcess 

ca  1  1 

PutTxData 

pop 

ds 

xchg 

dh  ,  d  1 

xor 

dh ,  dh 

mov 

di , [ bp+16 ] 

mov 

[ d i  1  , dx 

pop 

d  i 

pop 

s  i 

pop 

bp 

ret 

cPutTxData  endp 

cGetRxData :  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  GetRxData  function. 


[Calling  Sequence: 

I  int  cGetRxData ( &NumBytes ,  Flags,  RequestID,  PacketAddr) 

:  Input  Parameters: 

int  NumBytes  -  The  nnumber  of  bytes  to  transfer  this  call 

’  R-  I  1 


int  Flags  -  The  DL  flags 

int  RequestID  -  The  request  identifier 

char  far  *  PacketAddr  -  A  far  pointer  to  the  packet  to  copy  the  data 


; Output  Parameters: 

j;  int  NumBytes  -  The  actual  number  of  bytes  transferred 


;  Returns : 

t;  The  return  value  of  the  GetRxData  function 


/ 

.cGetRxData 

proc  near 

j  push 

bp 

mov 

bp ,  sp 

push 

si 

!  push 

di 

I  push 

ds 

mov 

d i , [ bp+4  ] 

mov 

cx , ss : [ di ] 

mov 

dl,byte  ptr[bp+6] 

mov 

dh.byte  ptr[bp+8] 

mov 

d i , [ bp+ 1 0 ] 

mov 

es , [ bp+l 2 ] 

ca  1 1 

GetRxData 

pop 

ds 

mov 

ii  , [bp+4  ] 

mov 

ss: [di ] ,cx 

pop 

di 

pop 

s  i 

pop 

bp 

ret 

cGetRxData  < 

endp 

pUSh 

ax 

mov 

ax , cs : his_ds 

mov 

ds ,  ax 

mov 

es ,  ax 

pop 

ax 

xor 

cx ,  cx 

mov 

cl ,  dh 

xor 

dh ,  dh 

push 

cx 

push 

ax 

call 

_myTx Process 

add 

sp,4 

pop 

es 

pop 

ds 

pop 

di 

pop 

s  i 

pop 

ret 

bp 

ixProcess  endp 


;  F.xi  tRcv  Int :  This  procedure  is  the  protocol-side  routine  which 
]  when  the  3L  has  completed  a  receive  interrupt.  It 

|  the  glue  between  the  3L  1.0  routines  and  C  routine 

;  myExi tRcv Int . 

ImyExi tRcvInt  Calling  Sequence: 

;  void  myExi tRcvInt ( ) 

myExitRcvInt  Input  Parameters: 

None 

lmyExitRcvInt  Returns: 

1  Nothing 


xitRcvInt  proc  near 
bp 
ds 
es 
s  i 
di 

ax 

ax , cs : his_ds 
ds ,  ax 
es  ,  ax 
ax 

_myExi tRcvInt 

di 
s  i 
es 


,  push 

;  push 

J  push 

1  push 

;  push 

;  push 

•  mov 

:  mov 

j  mov 

J  pop 

call 

-  POP 

pop 
pop 


is  called 
provides 
called 
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tLc  i 


pop 

pop 

iret 

tRcvInt  endp 


ds 

bp 


;RxProcess:  This  procedure  is  the  protocol-side  routine  which  is  called 

[when  a  packet  has  been  received  (see  _cInitAdapters ) .  It  provides 
the  glue  between  the  3L  1.0  routines  and  C  routine  called 
;  myRxProcess. 


JmyRxProcess  Calling  Sequence: 

•  t  t  -vf-nr" 


void  myRxProcess ( Status ,  PacketSize,  RequestID,  PacketHeader ) 

r 

JmyRxProcess  Input  Parameters: 

I  int  Status  -  Receive  status 

;  int  PacketSize  -  Size  of  the  received  packet 
|  int  RequestID  -  The  request  identifier 

char  far  * PacketHeader  -  Address  of  the  virtual  packet  header 


myRxProcess  Returns: 
Nothing 


ixProcess  proc 

near 

jomment  # 

push 

bx 

1  push 

cx 

push 

dx 

push 

s  i 

push 

di 

push 

bp 

push 

ds 

push 

es 

J  pushf 

] 

DUSh 

es 

.  push 

di 

push 

ax 

mov 

ax , cs : hi s_ds 

mov 

ds  ,  ax 

mov 

es  ,  ax 

pop 

ax 

xor 

bx ,  bx 

mov 

bl ,  dh 

xor 

dh ,  dh 

push 

bx 

push 

cx 

j  push 

ax 

call 

_myRxProcess 

|  add 

sp ,  10 

popf 

pop 

es 

pop 

ds 

1 

pop 

bp 

pop 

di 

pop 

si 

pop 

dx 

pop 

cx 

1 

pop 

ret 

bx 

# 

1 

push 

bx 

1 

push 

cx 

test 

cs : pxlock , Of fh 

1 

jz 

getp 

Bontget 

: 

;  inc 

pkcount 

1 

inc 

cs : pkcount 

1 

mov 

cx , 0  ;2ero  length  (just  discard) 

jmp 

goget 

getp: 

1 

;  At 

this  point  we  could  check  es:di  packet  header 

1 

;  to 

make  some  decision  on  packet  disposition 

;  lock  our  buffer  and  get  packet  data  into  it 

mov 

cs : pklock , Of f h  ;lock  buff 

mov 

cs : pkerr , 0 

;.goqet : 

1 

mov 

ax , CODE 

mov 

es ,  ax 

mov 

di, offset  cs:pkthd  , ‘buffer 

or 

dl,40h  ;release  buffer 

call 

GetRxData 

jcxz 

nolen 

mov 

cs : pkerr , ax 

1 

mov 

cs : pkl en , cx 

nolen : 

pop 

cx 

1 

pop 

ret 

bx 

JRxProcess  endp 


cXmi tl 


proc 


near 


;  transmit  one  packet 
_cXmitl  proc  near 
push  bp 
mov  bp , sp 
push  si 
push  di 
push  ds 


mov 

mov 


ax ,  ds 
es  ,  ax 


; setup  for  PutTxData 
mov  bx , [ bp+4 ] 


;set  lengths 
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1 

mov 

cx , [ bp+6 ] 

1 

mov 

dl,  byte  ptr[bp+8] 

mov 

dh,  byte  ptr[bp+10] 

1 

mov 

si , [ bp+12 ] 

1 

mov 

di,Offffh  ;no  TxProcess 

1 

call 

PutTxData 

1 

pop 

ds 

1 

xchg 

dh ,  dl 

xor 

dh,dh 

mov 

di , [bp+16 ] 

1 

mov 

[di ] ,dx 

pop 

di 

pop 

si 

pop 

bp 

ret 

cXmitl 

endp 

;__cRcvSome  proc  near 

|  following  code  to  dump  received  packets  for  a  fixed 

time 

_cRcvSome  proc 

near 

push 

bp 

1 

mov 

bp ,  sp 

push 

si 

push 

di 

push 

ds 

mov 

ax  ,cs 

1 

mov 

ds ,  ax 

Jhkpk : 

test 

cs : pklock , Of f h  ;got  a  pkt? 

1 

jnz 

lstpkt 

| 

mov 

cs:pklen,  0  ;  No  pkt,  move  0  to  pklen 

jmp 

wedone 

lstpkt : 

test 

cs : pkerr , Of f f f h  ;any  error 

1 

jz 

dmpk 

jmp 

wedone 

Jmpk : 

cmp 

cs : pklen , 0 

jnz 

pkok 

, 

jmp 

wedone 

kok : 

cmp 

cs : pklen , 256 

jle 

wedone 

1 

mov 

cs:pklen,256  ; limit  dump  to  1st 

256  bytes 

iedone : 

mov 

cs : pklock , 0 

1 

inc 

cs : pkcnt 

| 

mov 

ax,cs 

pop 

ds 

1 

mov 

si, [bp+4] 

mov 

word  ptr  [si],  offset  cs:pkthd 

J 

mov 

word  ptr  [si+2],  ax 

mov 

ax,cs:pklen 

B-l  6 


pop 

di 

pop 

si 

pop 

bp 

ret 

:ie  endp 

proc 

near 

push 

ds 

push 

es 

push 

si 

push 

di 

push 

cx 

mov 

ax ,  ds 

mov 

es  ,  ax 

xor 

ax ,  ax 

mov 

ds ,  ax 

mov 

cx, 22h*2 

mov 

di , of f set  ■ 

xor 

si  ,si 

old 

cl  i 

rep 

movsw 

st  i 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

pop 

ds 

ret 

endp 

proc 

near 

push 

es 

push 

s  i 

push 

di 

push 

cx 

push 

ax 

xor 

ax ,  ax 

mov 

es ,  ax 

mov 

cx , 22h*2 

mov 

si , offset 

xor 

di  ,di 

cld 

cl  i 

rep 

movsw 

sti 

pop 

ax 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

ret 

endp 

; vectors  0  -  21h, 


;save  'em 


;vectors  0  -  21h, 


; restore 


2  wds  per 


all 


2  wds  per 


em  all 


b-  i ; 


TEXT  ends 
end 


j*  CT03LC.C  */ 

/*  *  / 

4*  Description:  This  file  contains  the  code  which  calls  the  funtions  */ 

I*  provide  by  the  CT03L.ASM  to  recei ve/transmi t  packets  */ 

/*  through  3COM  Token  Ring  board.  */ 

/*  */ 


|* *************************************** ***********************************/ 
linclude  <stdio.h> 

Ixtern  clnitAdapf ers ( ) ; 
xtern  clnitParametersf ) ; 
extern  cResetAdapter ( )  : 
extern  cWhoAml ( ) ; 

xtern  cRdRxFi 1 ter (  )  : 
extern  cWrRxFi Iter ( ) ; 
extern  cPutTxData ( )  : 

Ixtern  cGetRxData  (  )  ; 

Ixtern  cSetLookAhead  (  1  : 
extern  cXmi tl  (  1  ; 

xtern  cRcvSome ( )  : 

main!  ) 


i  nt  i  : 

struct  inihdr  < 
char  len: 
char  nonl : 
char  non2: 
char  non3  [  2 }  : 
char  non4 [ 4  j  : 
char  nnnF  4  ]  ; 
char  non6; 
char  cdend [41; 
char  *arqo; 
short  args: 
char  non7 ; 

)  : 

struct  WhoStruct  { 

unsigned  char  addr[6]; 

char  ver  major: 

char  ver  minor: 

char  subver; 

char  type_ds; 

char  type__adapter ; 

char  init_status; 

char  reserved; 

char  num_tran__buf  ; 

short  sizetran^buf ; 

long  ttl_tran  cnt; 

long  ttl^tran  err  cnt: 

long  ttl_tran  timeout  cnt; 

long  ttl_recp  cnt; 

long  ttl_recv  bdr  cnt; 

long  ttl_recv  err  cnt: 

long  ttl  retry  cnt; 

char  xfr_mode; 
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char  wait. mode; 
char  hdr_spec_data ; 


struct  TokenFrame  { 

unsigned  char  da[6]; 
unsigned  char  sa [ 6  ]  ; 
unsigned  char  info[16]; 

>  ; 

struct  PktStr  / 

unsigned  char  inp[1500]; 

}  ; 

struct  WhoStruct  far  *Who ; 

struct  PktStr  far  *Pkt; 

struct  ini__hdr  ddh  : 

struct  ini_hdr  *parmsdr  =  &ddh; 

struct  TokenFrame  tkbuf ; 

struct  TokenFrame  *ptkbuf  =  &tkbuf ; 

int  ttlpl,  nb,  flags,  reqid,  nreqid: 

int  rc,  rxf=0x0005,  rrxf ,  Adapters=0; 
int  rs  =  0 ,  icnt  =  0 ; 
parmsdr->len=0xl 7 ; 
parmsdr->non 1 =0x00 r 
parmsdr->non2=0x00 ; 
parmsdr->non3 [ 0 1=0x00 ; 
parmsdr->non3 [ 1 ]=0xD0; 
parmsdr->non4 [01=0x00: 
parmsdr->non4 f 1 ]=0x00; 
parmsdi — >non4 [ 2  J =0x0  0 : 
parmsdr->non4 [ 3 ] =0x00 ; 
parmsdr->non5 [ 0 ] =0x00 ; 
parmsdr->non5 [ 1 ] =0x00 ; 
parmsdr->non5 f  2 ]=0x00 : 
parmsdr->non5 [ 3 ] =0x00 ; 
parmsdr->non6  =  0x00  ; 
parmsdr->cdend [0]=0x00; 
parmsdr->cdend  f 1 1=0x00: 
parmsdr->cdend [ 2 ] =0x00 ; 
parmsdr->cdend [ 3  ]  =  0x0  0 ; 

parmsdr->argo  =  "c : \ \3com\ \ tok60 3 . sys  5,300,0, 
parmsdr->args=getds f  1  ; 
parmsdr->non7=0x00 ; 

rc=getds ( )  ; 

printf ( "getds  0x%x\n",rc); 

rc=cln it Parameters ( parmsdr ) ; 

pr intf ( "cln i tParameters  returns  %d\n",rc); 

rc=cTnitAdapters ( &Adapters ) ; 

pr i ntf ( "clni tAdapters  returns  %d ,  Adp=%d\n" , rc 
rc=cSetLookAhead ( 32  )  ; 

printf  (  "cSetLookAhead  returns  %d\n'',rc); 
rc=cWhoAmT ( &Who )  ; 

pr i ntf ! "cWhoAmT  returns  ld\n",rc) ; 
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\0x0a "  : 


Adapters ) 


printf ( "addr  =  %02x  %0 2x  %02x",  Who->addr { 0 ] . 

Who->addr [ 1  ]  ,  Who->addr [ 2 ] ) ; 
printf  ("  ¥.02x  % 0 2 x  %02x\n",  Who->addr  {  3  ]  , 

Who->addr [ 4  ]  ,  Who->addr [ 5 1 )  ; 

ptintf("ver  major  %02x  ver  minor  %02x\n",  Who->ver  jna  jor ,  Who->ver  minor'): 
printf  (  "adapter  type  %02x\n",  Who->type__adapter )  ; 

printf ( "transfer  mode  %x  wait  mode  %x\n" ,  Who->xfr  mode,  Who->wait  mode i ; 
printf ("ttl  recp  cnt  %d  (0x%4x)\n»,  Who->ttl_recp_cnt ,  Who->ttl_recp.  cnt ) ; 

for  (i=0;  i<=5;  i++) 

ptkbuf->da [ i 1  =  Oxff; 
for  (  i  =  0  ;  i  <  =  5  ;  i ++ ) 

ptkbuf->sa [ i j  =  Who->addr f i 1 ; 


rc=cWrRx*Fi  1  teW  rxf  )  r 

pr intf ( "cWrRxFi Iter  returns  %d\n",rc); 
rc=c,RdRxFi  lterf&rrxf)  : 

printf ( "cRdRxFi Iter  returns  %d ,  f i 1 ter=lx\ n" , rc , rrxf 1 


rs  =  '  '  ; 

pr i ntf ( "Receiver  or  Sender 
while  (  ( ( rs  =  aetcha rill 


?  ( r/s i\n" 1 : 


1  =  r  1 


&&  1 rs  ! =  's')  ) 


}  ; 
i  r 


pr l nt f ( "Rece i ver  or  Sender  ?  (r/s)\n"); 


(  rs 


’r '  1  ( 


while  (  ! kbh i t ( )  )  t 

rc=cRcvSomei &Pkt ) : 


if  fro 


0 1  l 


printf  f"  lenath  *  fcd\n",  rc )  : 
for  (i=0;  i<=rc:  i+4) 

printf ( "  %2x".  Pkt->inplij 
printf ( "\ n” .  rc ) : 

icnt+t : 


or  intf  (  "Tota  i  innut  count  l.d\n".  icntl 


e  1  se 


) 


tt 1 p 1  =  Ox  1 c : 
nb  =  Oxlc; 
f  lags  =  0x0060 ; 
reqid  =  0x0001 ; 
nreqid  =  0x0011: 
for  ( i =0 ;  i <1 0 ;  i  •++ ) 

rc=eXmi tl ( tt 1  pi ,  nb. 


flags,  reqid,  ptkbuf ,  &nreqid): 


rc=cResetAdapterl ) ; 

pr i ntf ( "cReset Adapter  returns  %d\n",rc); 
exit  ( 0 ) ; 


void  myRxProcess ( Status ,  PacketSi7e,  Requestlb,  PacketHeader 1 
nt  Status,  PacketSize,  RequestTD; 
har  far  *PacketHeader : 


/*  f pr i ntf 1 stderr , "Ca 11 ed  by  ASM  -  myRxProcessX n  Not  implement  yet\n"l: 
f  pr  i  ntf  (  stderr  ,  "Status^^d  ,  Packetsi  ze  =  % d  ,  RequestTD=%d\n"  ,  Status  ,  Packets i  ?.e 


Reauest I D 1  :  * . 


void  myTxProcess ( Status  ,  Requer  TD) 
int  Status,  ReauestID; 

| 

l  /*  pri  ntf  (  "Ca  ]  1  ed  by  A  Sr.  -  myTxFjrocess\ n  Not  imp,ement  yet\n"l 
pr  intf  (  "Status  =  °sd  ,  Request  I  D=%d\n"  ,  Status  ,  RequestTD);  */ 


void  myEx i tRcv I nt I 1 

I  /*  printf  f  "Cal  1  ed  by  ASM  -  myF.xi  tRcvTntX.n  Not  implement  yet\n" 


rwrKxr  i  icer  proc  near 


push 

bp 

mov 

bp,sp 

push 

ds 

push 

s  \ 

bush 

d  i 

\\-  l.i 


a 


title  cto31 . asm 

I 

|*******************************************-.V*************x*******' 

■.File:  CT03L .  ASM 

/Description:  This  file  contains  subroutines  which  provide  a 

;  C  program  with  an  interface  to  the  3L  1.0  routines. 


(Functions  called  by  C 
UBLIC  _getds 


PUBLIC 

UBLIC 

Public 

public 

(UBLIC 

’U3LIC 

PUBLIC 

'"’UBLIC 

(UBLIC 

PUBLIC 


clnitParameters 

clnitAdapters 

c Reset Adapter 

cWhoAml 

cRdRxFilter 

cWrRxFilter 

cPutTxData 

cGetRxData 

cSetLookAhead 

etext 


...'UBLIC  _cRcvSome 
PUBLIC  _cXmiti 


(Need  to  be  written  in  C 


|xtrn 

_myExitRcvInt 

:  Hoar 

extrr 

_myRxProcess 

:  near 

•jxtr  . 

_  myTxProcess 

:  near 

;  Fr  tctions  provide  by 

this  f  i  l 

PUBLIC 

ExitRcvInt 

jUBLIC 

RxProcess 

PUBLIC 

TxFrocess 

"I3L  functions 

|xtrn 

InitParameters 

:  near 

extrn 

Init Adapters 

:  near 

qxtrn 

WhoAmI 

:  near 

xtrn 

ResetAdapter 

:  res  _ 

extrn 

RdRxFi 1  ter 

:  near 

extrn 

WrRxFi Iter 

:  near 

Ixcrn 

GetRxData 

:  near 

Ixtrn 

SetLookAhead 

:  near 

extrn 

PutTxData 

:  near 

jf  equ  Oah 

cr  equ  Odh 

(print  macro  strloc  , -print  string  at  strloc 

'  locai  strloc 

push  ax 

]  push  cx 

,  push  ds 

push  dx 

m^-v  dx,seg  strloc 

I  mov  ds , dx 


mov 

dx, offset  strloc 

raov 

ah , 09h 

int 

21h 

pop 

dx 

1 

pop 

ds 

pop 

cx 

1 

1 

pop 

endm 

ax 

Jekbdin 

macro 

;get  kbd  char  in  al 

mov 

ah ,  8 

i 

int 

endm 

21h  ; wait  for  key 

@kbdchk 

macro 

;  check  for  kbd  char 

1 

mov 

ah , Obh 

1 

l 

int 

endm 

21h  ; returns  al:  O-nokey 

pODE 

GROUP 

_TEXT ,  DATA,  ICODE 

.TEXT 

segment 

byte  public  'CODE' 

DGROUP 

group 

_DATA ,  _BSS 

1 

assume 

cs:_TEXT,  ds: DGROUP,  ss: DGROUP 

_TEXT 

ends 

"data 

segment 

word  public  'CODE' 

DATA 

ends 

jlCCDE 

segment 

word  public  'CODE' 

ICODE  ends 

Idata 

segment 

*his_ds 

dw 

•p 

_etext 

db 

fvects  v 

dd 

22h  dup  (0)  ;save  all  vectors  so 

retsav 

dw 

•p 

icrlf 

db 

cr, If , '$' 

pklock 

db 

0 

pklen 

dw 

0 

pkerr 

dw 

0 

pkcnt 

dw 

0 

pkcount 

dw 

0 

Jpkthd 

db 

32  dup(0) 

{pktdat 

db 

.150  0  dup(0) 

.DATA 

ends 

.DATA 

segment 

word  public  'DATA' 

d0 

label 

byte 

Cdata 

ends 

1  BSS 

segment 

word  public  'BSS' 

_b@ 

label 

byte 

1  BSS 

ends 

jIdata 

segment 

word  public  'DATA' 

_s@ 

label 

byte 

DATA 

ends 

r 


JTEXT 

SEGMENT 

| 

ASSUME 

CS :_TEXT ,  DS:DGR0UP,  SS : DGROUP 

_getds 

proc 

near 

mov 

ax,ds 

1 

mov 

cs : his_ds , ax 

1 

ret 

_getds 

endp 

_clni tAdapters :  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  InitAdapters  function. 

Calling  Sequence: 

int  clnitAdapters ( SnAdapters ) 

Input  Parameters: 

None 

Output  Parameters: 
int  nAdapters 

Returns : 

The  return  value  of  the  InitAdapters  function 

clnitAdapters 

proc  near 

push 

bp 

mov 

bp ,  sp 

push 

si 

push 

di 

push 

ds 

mov 

ax ,  cs 

mov 

ds ,  ax 

mov 

di, offset  CODE : RxProcess 

call 

InitAdapters 

pop 

ds 

mov 

di,word  ptr[bp+4] 

mov 

word  ptr[di ] ,cx 

pop 

di 

pop 

si 

pop 

bp 

ret 

clnitAdapters 

endp 

_cInitParameters :  This  procedure  provides  the  glue  between  a  C 

,  program  and  the  3L  1.0  InitAdapters  function. 


Calling  Sequence: 

int  clnitParameters ( Parms ) 

Input  Parameters: 

char  *Parms  -  Pointer  to  a  structure  with  overrides  of  default 


parameters . 


Output  Parameters: 

None 

Returns : 

The  return  value  of  the  InitParameters  function 


IcInitParameters  proc  near 
push  bp 

i  mov  bp , sp 

I  push  si 

push  di 

push  ds 

mov  bx,[bp+4] 
mov  ax,ds 

I  mov  es,ax 

I  mov  ax,cs 

mov  ds , ax 

call  savvecs 

call  InitParameters 

ij  pop  ds 

‘  pop  di 

pop  si 

1  pop  bp 

1  ret 

__cInitParameters  endp 

I 

; _cResetAdapter :  This  procedure  provides  the  glue  between  a  C 
)  program  and  the  3L  1.0  ResetAdapters  function. 

.•Calling  Sequence: 

int  cResetAdapter ( ) 

;  Input  Parameters: 

None 

.Output  Parameters: 

;  None 

Ifieturns : 

;  The  return  value  of  the  ResetAdapter  function 


„_cReset  Adapter 

proc  i 

push 

bp 

|  mov 

bp,  sp 

•  push 

si 

push 

di 

J  push 

ds 

mov 

dx ,  0 

i  mov 

ax ,  cs 

mov 

ds ,  ax 

H-.’h 


mov  dl ,  0  ;  Ruey  Ouyang 

call  ResetAdapter 
call  fixvecs 

pop  ds 

pop  di 

pop  si 

pop  bp 

ret 

cResetAdapter  endp 


_cWhoAmI :  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  WhoAmI  function. 

Calling  Sequence: 

int  cWhoAml ( &WhoPtr ) 

Input  Parameters: 

None 

Output  Parameters: 

struct  WhoStruct  far  *WhoPtr  -  Far  pointer  to  the  WhoAmI  structure 
Returns : 

The  return  value  of  the  WhoAmI  function 


cWhoAml  proc  near 


push 

bp 

mov 

bp ,  sp 

push 

si 

push 

di 

push 

ds 

mov 

dx ,  0 

mov 

ax ,  cs 

mov 

ds ,  ax 

call 

WhoAmI 

pop 

ds 

mov 

si , [ bp+4 ] 

mov 

Word  ptr  [ si ] , di 

mov 

Word  ptr  [si+2],es 

pop 

di 

pop 

si 

pop 

bp 

ret 

_cWhoAmI  endp 

I; - 


cRdRxFilter : 


This  procedure  provides  the  glue  between  a  C 
program  and  the  3L  1.0  RdRxFilter  function. 


1 


; Cal ling  Sequence: 

int  cRdRxFilter ( SRxFilter) 

Input  Parameters: 

None 

Output  Parameters : 

int  RxFilter  -  The  receive 


filter  value 


I;  Returns : 

;  The  return  value  of  the  RdRxFilter  function 


cRdRxFilter  proc  near 


push 

bp 

mov 

bp,  sp 

push 

si 

push 

di 

push 

ds 

mov 

ax ,  cs 

mov 

ds ,  ax 

mov 

dx ,  0 

call 

RdRxFilter 

pop 

ds 

mov 

di, [ bp+4 ] 

mov 

[di ] ,bx 

pop 

di 

pop 

si 

pop 

ret 

bp 

_cRdRxFilter  endp 

i; - 


1 

t 

i 


_cWrRxFilter :  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  WrRxFilter  function. 

Calling  Seguence: 

int  cWrRxFilter(RxFilter ) 


l 


Input  Parameters: 
int  RxFilter  - 


The  new  receive  filter  value 


; Output  Parameters: 
„•  None 


;  Returns : 

;  The  return  value  of  the  WrRxFilter  function 


cWrRxFilter  proc  near 
push  bp 
mov  bp,sp 
push  ds 
push  si 
push  di 
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j  mov 

ax ,  cs 

mov 

ds ,  ax 

mov 

dx ,  0 

mov 

ax , [bp+4 ] 

*  call 

WrRxFilter 

!  pop 

di 

1  pop 

si 

pop 

ds 

j  pop 

bp 

j  ret 

_cWrRxFilter 

endp 

;_cSetLookAhead:  This  procedure  provides  the  glue  between  a  C 

program  and  the  3L  1.0  SetLookAhead  function. 

; Cal ling  Sequence: 

int  cSetLookAhead(NumBytes) 

.Input  Parameters: 

;  int  NumBytes  -  The  nnumber  of  bytes  of  look  ahead  data 

j Output  Parameters: 

;  None 

{Returns : 

;  The  return  value  of  the  SetLookAhead  function 

IcSetLookAhead  proc  near 
push  bp 

!mov  bp , sp 

push  si 

push  di 

|  push  ds 

mov  ax,cs 

Titov  ds ,  ax 

mov  dx , 0 

mov  ax,[bp+4] 

j  call  SetLookAhead 

pop  ds 

■  pop  di 

j  pop  s i 

pop  bp 

ret 

IcSetLookAhead  endp 


j_cPutTxData :  This  procedure  provides  the  glue  between  a  C 

;  program  and  the  3L  1.0  PutTxData  function. 

Icalling  Sequence: 


int  cPutTxData (TotalPacketLen,  NumBytes,  Flags,  RequestID, 
PacketAddr,  &NewRequestID) 


; Input  Parameters: 

;  int  Total PacketLen  -  The  total  packet  length  (first  call  only) 
1  int  NumBytes  -  The  nnumber  of  bytes  to  transfer  this  call 

t  int  Flags  -  The  DL  flags 

•  int  RequestID  -  Used  if  not  the  first  call 

t  char  far  *  PacketAddr  -  A  far  pointer  to  the  packet 


;Output  Parameters: 

c  int  NewRequestID  -  Returned  after  first  call 


7 Returns : 

The  return  value  of  the  PutTxData  function 


.cPutTxDAta  proc  near 
push  bp 

mov  bp,sp 

push  si 

push  di 

push  ds 

mov  ax,ds 

mov  es,ax 


mov 

mov 

mov 


bx , [ bp+4  ] 
cx , [bp+6 ] 

dl,byte  ptr[bp+8] 

dh, byte  ptr[bp+10] 
si , [bp+12 ] 

di, offset  CODE:TxProcess 

di, Offffh  ;  no  TxProcess 


call  PutTxData 


pop 

xchg 

xor 


ds 

dh, dl 
dh  ,dh 

di ,  [bp+16 ] 
[di ] ,dx 


pop  di 
pop  si 
pop  bp 
ret 

.cPutTxData  endp 


t 

1?_cGetRxData:  This  procedure  provides  the  glue  between  a  C 

;  program  and  the  3L  1.0  GetRxData  function. 

t 

y Cal ling  Sequence: 

y  int  cGetRxData(&NumBytes,  Flags,  RequestID,  PacketAddr) 

t 

s Input  Parameters: 

t  int  NumBytes  -  The  nnumber  of  bytes  to  transfer  this  call 


int  Flags  -  The  DL  flags 

int  RequestID  -  The  request  identifier 

char  far  *  PacketAddr  -  A  far  pointer  to  the  packet  to  copy  the  data 


1 

9 

i 

9 

; Output  Parameters: 

1  int  NumBytes  -  The  actual  number  of  bytes  transferred 
/•Returns : 

c  The  return  value  of  the  GetRxData  function 


cGetRxData  proc  near 


push 

bp 

mov 

bp,sp 

push 

si 

push 

di 

push 

ds 

mov 

di, [ bp+4 ] 

mov 

cx , ss : [di ] 

mov 

dl,byte  ptr[bp+6] 

mov 

dh,byte  ptr[bp+8] 

mov 

di , [ bp+10 ] 

mov 

es , [bp+12 ] 

call 

GetRxData 

pop 

ds 

mov 

di, [bp+4] 

mov 

ss  :  [di ] ,cx 

pop 

di 

pop 

si 

pop 

ret 

bp 

cGetRxData  endp 


TxProcess : 


This  procedure  is  the  protocol-side  routine  which  is  called 
when  a  packet  has  finished  transmitting  (see  _cInitAdapters ) .  It 
provides  the  glue  between  the  3L  1.0  routines  and  C  routine  called 
myTxProcess . 


myTxProcess  Calling  Sequence: 

void  myTxProcess ( Status ,  RequestID) 


myTxProcess  Input  Parameters: 

int  Status  -  Receive  status 

int  RequestID  -  The  request  identifier 


myTxProcess  Returns: 
Nothing 


TxProcess  proc  near 


push 

bp 

push 

si 

push 

di 

push 

ds 

push 

es 

B-  3  ] 


I 

1 


1 


1 


push 

ax 

mov 

ax,cs:his_ds 

mov 

ds  ,ax 

mov 

es,ax 

pop 

ax 

xor 

cx,cx 

mov 

cl  ,dh 

xor 

dh,dh 

push 

cx 

push 

ax 

call 

_myTxProcess 

add 

sp,4 

POP 

es 

pop 

ds 

pop 

di 

pop 

si 

pop 

ret 

bp 

xProcess  endp 


;ExitRcvInt:  This  procedure  is  the  protocol-side  routine  which  is  called 


<  when  the  3L  has  completed  a  receive  interrupt.  It  provides 

r  the  glue  between  the  3L  1.0  routines  and  C  routine  called 

;  myExitRcvInt . 

rmyExitRcvInt  Calling  Seguence: 

?  void  myExitRcvInt ( ) 


t myExitRcvInt  Input  Parameters: 
f  None 

f 

•myExitRcvInt  Returns: 
p  Nothing 


IxitRcvInt  proc 

near 

push 

bp 

push 

ds 

push 

es 

push 

si 

push 

di 

push 

ax 

mov 

ax,cs:his_ds 

mov 

ds ,  ax 

mov 

es ,  ax 

pop 

ax 

call 

_myExitRcvlnt 

pop 

di 

pop 

si 

pop 

es 
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;  pop  ds 

■j  P°P  bp 

1  iret 

JxitRcvInt  endp 


I 

;RxProcess:  This  procedure  is  the  protocol-side  routine  which  is  called 

I  when  a  packet  has  been  received  (see  _cInitAdapters) .  It  provides 

the  glue  between  the  3L  1.0  routines  and  C  routine  called 
;  myRxProcess. 

ImyRxProcess  Calling  Sequence: 

void  myRxProcess  ( Status  ,  PacketSize,  RequestID,  PacketHeader ) 

/ 

ImyRxProcess  Input  Parameters: 

I  int  Status  -  Receive  status 

;  int  PacketSize  -  Size  of  the  received  packet 
]  int  RequestID  -  The  request  identifier 

j  char  far  *PacketHeader  -  Address  of  the  virtual  packet  header 

r 

rmyRxProcess  Returns: 

Nothing 


ixProcess  proc 

near 

fomment  # 

push 

bx 

push 

cx 

push 

dx 

push 

si 

push 

di 

j  push 

bp 

i  push 

ds 

push 

es 

pushf 

push 

es 

push 

di 

push 

ax 

mov 

ax , cs : his_ds 

1  mov 

ds ,  ax 

!  mov 

es ,  ax 

pop 

ax 

i 

xor 

bx ,  bx 

mov 

bl  ,dh 

xor 

dh,dh 

push 

bx 

push 

cx 

push 

ax 

call 

_myRxProcess 

add 

sp ,  10 

popf 

pop 

es 

pop 

ds 

pop  bp 

•  pop  di 

pop  si 

pop  dx 

pop  cx 

1  pop  bx 

'  ret 

# 

I  push  bx 

push  cx 

itest  cs : pklock , Of f h 

jz  getp 

ontget : 

in c  csrpkcount 

mov  cx,0  ; zero  length  (just  discard) 

jmp  goget 

getp : 

;  At  this  point  we  could  check  es:di  packet  header  data 
;  to  make  some  decision  on  packet  disposition 
;  lock  our  buffer  and  get  packet  data  into  it 


, 

mov 

cs : pklock , Of fh  ;lock 

buff 

mov 

cs : pkerr , 0 

goget : 

mov 

ax , CODE 

J 

mov 

es ,  ax 

1 

mov 

di, offset  cs 

: pkthd 

; buffer 

or 

dl ,  40h 

;release 

buffer 

call 

GetRxData 

1 

jcxz 

nolen 

mov 

cs : pkerr , ax 

1 

mov 

cs : pklen , cx 

jiolen : 

pop 

cx 

pop 

bx 

i 

ret 

RxProcess  endp 

t  _ 

i  _cXmitl  proc  near 


t  transmit  one  packet 
J_cXmitl  proc  near 
push  bp 

•  mov  bp,sp 

push  si 
push  di 
push  ds 

I 

1  mov  ax,ds 

mov  es,ax 

|  ; setup  for  PutTxData 

mov  bx,[bp+4]  ;set  lengths 

.  mov  cx , [ bp+6 ] 

mov  dl,  byte  ptr[bp+8] 


B  —  i  4 


[ bp+10  ] 


me 

i  mov 

mov 

call 

pop 

xchg 

xor 

mov 

mov 

pop 

pop 

pop 

ret 

cXmitl  endp 


dh,  byte  ptr 
si , [bp+12 ] 
di  ,  Of f f fh 

PutTxData 

ds 

dh  ,dl 

dh, dh 

di ,  [bp+16 ] 
[di ] ,dx 

di 

si 

bp 


;no  TxProcess 


_cRcvSome  proc  near 

;  following  code  to  dump  received  packets  for  a  fixed  time 


cRcvSome  proc  near 
push  bp 

mov  bp,sp 

push  si 

push  di 

push  ds 

mov  ax , cs 

mov  ds , ax 

ohkpk : 

test  cs : pklock , Of f h  ;got  a  pkt? 

jnz  lstpkt 

mov  cs: pklen,  0  ;  No  pkt,  move  0  to  pklen 

jmp  wedone 

.stpkt : 

test  cs : pkerr , Of f f fh  ;any  error 

j  z  dmpk 

jmp  wedone 

dmpk : 

emp  cs: pklen, 0 

jnz  pkok 

jmp  wedone 

pkok : 

emp  cs:pklen,256 

jle  wedone 

mov  cs:pklen,256  ;limit  dump  to  1st  256  bytes 

•'edone : 

mov  cs: pklock, 0 

inc  cs:pkcnt 

mov  ax,cs 

pop  ds 

mov  si , [ bp+4 ] 

mov  word  ptr  [si],  offset  cs:pkthd 

mov  word  ptr  [si+2],  ax 

mov  ax, cs: pklen 

pop  di 

pop  si 
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NiJU- 04-' 

pop 

■  .ret  . 

"cRcvSome  endp 

1 _ 

91  riot;  13 :  10 

bp 

irWST  407-953-5059  8340  PC 

lawecs  proc 

near 

push 

ds 

1  push 

es 

I  push 

si 

push 

di 

■  push 

cx 

mov 

ax,ds 

mov 

es,ax 

j  xor 

ax  ax 

•  mov 

ds  ,ax 

mov 

cx , 22h*2 

; vectors  0  -  21h, 

2  wds  per 

1  mov 

di  ,of f set 

CODE : vect  sv 

|  xor 

si ,  si 

cld 

cli 

rep 

movsw 

;  save  '  eia 

all 

sti 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

pop 

ds 

ret 

;awec6  endp 

ixvecr.  proc 

near 

push 

es 

push 

si 

push 

di 

push 

cx 

push 

ax 

xor 

ax,  ax 

mov 

es  ,  ax 

mov 

cx, 22h*2 

; vectors  0  -  21h, 

2  wds  per 

mov 

si ,of f set 

CODE:vectsv 

xor 

di  ,di 

cld 

cli 

rep 

movsw 

/restore  ' 

cm  all 

sti 

POP 

ax 

pop 

cx 

pop 

di 

pop 

si 

pop 

es 

ret 
Lxvecs  endp 
TEXT  ends 
end 


&-3Cr 


4  '91  14:1- 


<jiogd  i  sk .  c 

iviis  program  displays  the  airplane  controled  by  the  Si  1  i  conGraph  i  cs  or 
the  simnet. 

]  simnet:  Link  Level  Raw  Ethernet  Packets  /  Synchronous  Non-blo.  Kina 

i  Si  1 iconGraphics :  Synchronous-blocking  UDP/IP  or 

(disk  file) 


p  include  <sys  ,/extvpes  .  h> 

^include  <stdio.h> 

/  include  <ctype.h> 
ft  include  <math.h> 
n  include  <svs  ,/exerrno  .  h> 

I#  include  <sys/  ocket.h> 
p include  <net inet /in . h> 

V  include  <fcntl.h> 
tt  include  <signal.h> 
tnrludfi  <errno.h> 

» include  'sys/types . h> 

» include  <svs/stat.h> 

<t  include  <•  ~vs /exosopt .  h> 

'V -include  <svs/exos.h> 

9  include  <ex_ioctl.h> 
f  include  <sys  ,/soi  oct  1  .  h> 
j*  include  <sys/dcb.h> 

»  include  " . . \ s imnot . h\s i mnet 2 . h" 
j :nclude  " . . \f 1 ight . h\ f 1 i ght . h" 

i'truct  sockaddr  link  recv  socket  =  (  AF_ETYPEFT LTER  1; 
Struct  sockaddr^ link  send_socket  -  (  AF_ETYPEFILTER  1; 
struct  sockaddr  in  recv  socket^sg  =  f  AF_INET  ); 
struct  sockaddr  in  send  socket_sa  =  {  AF_INET  I: 

/define  F I  LEO  FLAG  (O  RDONI.Y  j  OBINARY  ) 

/define  F I LEPMODE  col 
i 

tt  d  e  f  i  n  e  P 1  3.14109 

I 

Extern  i nt  errno: 
extern  int  break  enabled; 
extern  int  abort  op; 


J- 

t  n  t 

d  i  s  k  f  d  -  ■  - 1  ; 

/* 

c  *  i  s  k  t  i 

1  e  */ 

i  nt 

netfd  =  1 ; 

/* 

s i mnet 

file  * / 

Ji  nt 

net f dsg  -  - 1  ; 

/* 

udp/ i p 

file  *  / 

h  nt 

timelimit  =  30. 

char 

* i nputf i  1 e  r 

jr;ha  r 

SEND  IT; 

c  h  a  r 

buf [ 1074 j ; 

!i  nt 

1 

break  handler! 1 

mn  ;  ri 

Cargo,  arqv ) 

In  h  a  r 

♦ *a rov : 

i 


fi-  i  • 


int  an,  i,  j,  pdukind,  netcnt; 


signal (SIGINT,  break, hand  1 er  )  ; 
break_enabl ed  =  1; 
inputfile  =  argv[l]; 

sgin i t in ( ) : 

net  ini t ( ) ; 

/*  Capture  a  simnet  packet  first,  so  we  don't  have  to  fill  all  or  the  data 
field  * / 

f pr i ntf ( stderr ,  "wait  for  s i mnet\ n"  )  ; 
wh i I e ( 1  )  { 

/*  netcnt=netread ( inbuf 1 ;  */ 
netcnt  =  netread ( )  ; 

data  1 ength . p  data  length^  ntohs  ( ether  buf . s i mnet  data . e_data length  1  ; 
netcnt=data length . i_ data  length . 1 ength  +  HEADER. SIZE; 
memcpy  ( &pdu__buf  ,  &ether_buf  .  s  i  mnet_data  ,  netcnt  -  HEADER  _S  I  ZE  1  ; 
pdukind  =  ntoh _ simnet () : 

if  (pdukind  ==  vehi  cleAppearancePDlJKind  i  ( 

SENDTT  =  '  '  ; 

if  (  ether.,  buf  .  e__shost  [5  1  ==  TANKA) 

SENDTT  =  ' A ' ; 

if  ( ether,  buf . e_shost  [5]  -  -  TANKR ) 

SENDTT  =  ' B'r 

) 

it  SENDTT  ==  'A')  j!  (SENDTT  'B's)  break; 


f pr i ntf ( stderr  ,  "Got  a  vehicle  appearance  packet  from  tank  %c\n",  SENDTT 1  : 

pdu  bu  f  .  VAPDIJ .  V  AD  AT  A  .h dr. vehicle TD  =  MYTANK  T  D  ; 

pdu.  bu f . VAPDU . VADATA . appearance . vehK i ndMask  =  A10; 

memcpy  (ether  buf.e_shost,  my.addr.  s i zeof ( my_ addr 1 ) ; 

while  (1  1  • 

netcnt  =  sgreadinf); 
if  (netcnt  <.=  0)  break; 
memcpyf  Splane,  buf,  netcnt); 
ntoh  f 1 i ght (  )  ; 

pdu,  buf  .VAPDIJ.  VADATA.  location;  0  ]  = 

ATRPORTX  +  (  (  plane.x  +  ADJUSTX  )  ,/F2M  )  ; 

pdu_buf  .  VAPDIJ .  VADATA .  location!  1  ]  = 

ATRPORTZ  -  ((plane.?;  +  ADJUSTZ ) /F2M ) ; 
pdu.  buf  .VAPDIJ.  VADATA.  locati  on  p  ]  =  ATRPORTY  +  (  p  1  ane  .  y /F2M  1  ; 
ca 1 rotat i on (  )  ; 
hton  s i mnet (  )  ; 

memcpy  ( iether  buf .simnet  data,  &pdu  but ,  netcnt  -  HEADFR_ST ZE 1 ; 
netwr i te (  J  ; 

1 

fprintf  (stderr,  "End  of  input  sg  packet\n" ) ; 
c 1 ose ( d i sk f  d  i  ; 
sgf i n i i n (  J  ; 
netf i n i  i  1  ; 


ex  i t( errstri no  i 
r  *errstrino; 


ft 


l 

|  if  (errno)  experror ( errstr ing  )  ; 

|  else  f pri ntf ( stderr ,  "%s\nusaqe:  dogdisk  filename\n",  errstri ng ) ; 

close ( diskf d l ; 

Isoclose ( netf dsg ) ; 
netf ini ( ) : 
exi t ( 1 ) ; 

) 

|reak_handler(  1  ./*  break  handler  ...  control -break  or  control-c  */ 

< 

I  static  int  breakcount  =  Or 

i f  ( ++break  count  ==  1 )  t 

/*  first  time,  just  try  to  stop  current  network  operation  */ 
abort  op  =  1 : 

s i gna 1 ( STGTNT .  break  hand  1 er i  :  /*  reset  trap  */ 

return ; 

J  else  { 

/*  second  time,  try  to  clean  up,  then  quit  */ 

■  errexiti  "user  abort”.); 

!  > 


.ninfof optp i 
ruct  exosoot  *ooto: 


< 


/*  note  that  this  routine  will  not  return  valid  results 

*  if  used  with  a  pre-3.3  driver,  which  interpreted  the 

*  hoard  memory  address  as  absolute,  rather  than  relative 

*  to  the  beainninq  of  the  data  segment 

*  / 


Iona  opt address  - 

int  id; 


/*  location  of  ootions  */ 


i  f 


) 

i  f 


> 

i  f 


(fid  “  brdopen ( 0 ,  1 i ) 

experror/ "brdopen" ) ; 
return ( - 1  \  : 


<01/ 


( brd i oct i / i d ,  BRDADDR ,  &optaddress 1  <01  ( 

experror  f "brd i oct 1 f  , BRDADDR 
return  < -  1  1 ; 

(brdread/id,  optp,  sizeof (struct  exosoptl)  <  0)  ( 
experror ( "brdread" 1 ; 
return  I  - 1  ) ; 


brdc 1 ose  <  id) ; 
return  0; 


ti no  1 ude  " .  . \s i mnet . h\s i mnet . ccd" 
include  " . . \f l  i aht . h\f 1 i aht . ccd" 

^ *  This  subroutine  computes  the  rotation  matrix  (3x3)  for  the  SIMNET  PDU's  * 
f*  given  the  pitch,  roll  and  yaw  of  the  vehicle.  */ 

"ri  i  rot  at  i  on  f  1 


n-  v> 


int  i , j  ,  k=0  : 
float  R ,  P ,  Y  ; 

float  RC ,  RS  , PC , PS , YC , YS ; 
float  A  [ 3 ]  [  3  ]  ; 
float  z  [ 3  ]  [ 3  ]  : 

float  x  [31  [ 3  ]  ; 

float  v  [  3  ]  [ 3 ] ; 

/*  in  Silicon  Graphics  DoaFight:  Roll=Twist;  Pi tch=Elevation ;  Yaw=Azimith  */ 

R= ( plane . twist /I 0* PI ) /I 80 ; 
p=-  (plane,  elevation  /10*PI 1/180; 

Y=- ( plane . azimuth /I 0*PI ) /I 80 ; 

RC=cos ( R ) : 

RS=s i n ( R 1 ; 


PC=cos (PI; 

PS=s i n ( P ) ; 

YC=cos ( Y  )  ; 

YS=s i n(Yl  : 

Z  [  0  ] 

f  0  ]  =  YC  : 

Z  [  0  j 

[l']=-YS; 

7  [  0  ] 

r 2 !  =  0  r 

Z  [  1  j 

[  0 1=YS ; 

Z  f  1  1 

[  1  j  =  YC : 

Z[  1  ] 

[21=0 ; 

z  [  ?  1 

r  0 1  =  0  : 

Z !  2  1 

| 1 1=0 ; 

z  f  2  ] 

[  2  j  - 1  ; 

x[  01 

[0  1  =  1  ; 

x  [  0  1 

f 1 1=0 : 

X  [  0  ] 

[21=0; 

x[  1  ] 

[01=0; 

x  r  i  j 

[ 1 1 =PC ; 

xf  1  1 

[ 2 ]=-PS ; 

X[  2] 

[01=0 ; 

X[  2  1 

[ 1 1=PS : 

x[  2  ] 

f  2 1 =PC ; 

v  [  0  1 

1 0 ] =RC ; 

y  r  0  1 

[3 1=0 ; 

y  f  0  J 

[ 2 1=RS; 

ym 

[  0  ]  =  0  ; 

V  [  1  J 

[  1  ]  =  1  ; 

y[  i  ] 

[  2  ]  =  0 ; 

y[2] 

[  0  ]  =  -  R  S  ; 

y(2] 

[1 )=0; 

y[2] 

[ 2 ] =RC ; 

for 

It 

V 

o 

II 

for  ij=0;  i<=2;  i  +  +)  ( 

A  [ i ][ j  ]=0; 

for  lk=0;  k  <  =  2  :  k++) 

A  [  i  1  f  i  1  +  =  x  [  i  )  [  k  ]  *  y  [  k  ]  [  j  ]  ; 

) 


I' -40 


for  (i=0;  i<=2;  i++)  { 

for  ( j  =  0;  j  <—2 ;  j++) { 

pdu_buf . VAPDU • VADATA . rotation [ i ][ j ] =0 ; 
for  ( k=0 ;  k<=2;  k++ ) 

pdu_buf .VAPDU. VADATA. rotation  [ i ] [ j ]  += 


A  [  i  ]  [  k  ]  *  z  [  k  ]  [  j  ] 


B-'*  i 


/**★★*★★★★****★★*★★*★★****★★★*■*★*★*******★★***★**★*★★★*★★★★★★**■***★*★**•*•**** 
"jl  ight .  h 

This  file  is  the  header  file  for  the  airpalne  running  on 
the  Sil iconGraphics 

I**************************************************************************/ 

Jdefine  NAME__LENGTH  15 
^define  MYPLANETD  16 


p 

ef  i 

ne 

ef  i 

ne 

#d 

ef  i 

ne 

b 

ef  i 

ne 

5 

ef  i 

ne 

/* 


ADJUSTX  -350 
ADJUSTZ  2050 
AIRPORTX  40000 
AIRPORTY  220.0 
AIRPORTZ  30000 


define  F2M  3.281 
it  d  e  f  i  n  e  F  2  M  5.0 


0 

0 


jtruct  plane  ( 

long  planeid: 


char  version; 

/* 

flight  version 

*  / 

char  cmd : 

/* 

type  of  packet 

*  / 

short  type: 

/* 

plane  type  */ 

short  alive; 

/* 

alive  */ 

char  mvname  [  NAME._LENGTH+1  ]  : 

unsigned  short 

status  ; 

unsigned  short 

won  : 

/* 

for  msgs  these 

2  shorts  */ 

unsigned  short 

1  ost ; 

/* 

hold  the  .ane 

id  * / 

float  x: 

/* 

plane  position 

*/ 

f 1  oat  y ; 
f  1  oa  t  z ; 
short  azimuth; 
short  elevation: 
short  twist; 

short  mstatusr  /*  missile  data  */ 

float  mx ; 

float  my; 

float  mz  ; 

float  last_mx: 

float  last_mv ; 

f  1  oat  1  ast_  mz  ;  ■  • 

1 ong  kill; 
float  tps; 
int  airspeed; 
int  thrust; 

short  wheels:  /*  wheel  position  */ 

short  elevator;  /*  elevator  position  */ 

char  mtype ; 


struct 
i  o  r  t 


pi ane  p 1 ane ; 
port--  Ox  1  4  0a  ; 
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/*  port  address  for  udp./in  connection  */ 


f 1 ight . ccd 


*  This  file  contains  the  c  code  to  handle  the  airplane  flying  on  the  SG 

p*************************************************************************v 

/*  Initialize  a  synchronous/blocking  udp/ip  connection  for  input  */ 
sginit in (  ) 

/*  Check  that  the  driver  is  loaded,  and  get  our  own  ethernet  MAC 
address  from  the  EXOS  board  */ 
if  (! loaded?))  errexit? "driver  NOT  loaded"); 

if  ( ipinf o ( &opt )  <  0)  errexit ( "could  not  get  own  ethernet  MAC  address"); 
memcpy ( my  addr ,  opt . xo_eaddr ,  si zeof (my_addr ) ) ; 

I 

/*  Display  my  address  */ 

f printf ( stderr  ,  "my  addr  =  %02x-%02x-%Q2x-%02x-%02x~%02x\n" , 

my_addrf0],  my_addr[ 1 ] ,  my_.addr{2], 

I  mv_addr[3],  mv_addr[41,  my_addr[5j); 

/*  Open  input  disk  file  */ 

I  diskfd  =  open) inputf ile,  FILEOFLAG,  FILEPMODE); 
i  if  (diskfd  <  0)  errexit ( "cannot  open  diskfile"); 
f printf ( stderr ,  "disk  file  fd  =  %d\n" ,  diskfd); 

/*  UDP./IP  specification  */ 
send_soc.ket_sg.sin_port  =  htons(port); 

,  send  socket sg  .  sin_addr .  s_addr  =  0x00000000; 

recv__socket_sg  .  s  in_port  =  htons(port); 

'  recv_socket_sg.sin_addr.s_addr  =  Oxffffffff; 

I/*  Make  a  udp  socket  call  */ 

if  ((netfdsa  =  socket ( SOCK_DGRAM ,  (struct  sockproto  *)  0, 

&send_socket_sg ,  0))  <  0)  { 
j  f pr i ntf ( stderr ,  "ERRNO  %d\n"  ,  errno) ; 

1  errex i t < "socket ")  ; 

1  ) 

f printf ( stderr ,  "sg  socket  fd  =  %d\n",  netfdsa); 

!  return  10); 


/*  Read  synchronous/blocking  udp/ip  packet  */ 

Spread  inf) 

f  " 

intent; 

/*  if  ( (ent  =  sorece i ve ( netf dsg ,  &recv_socket_sg,  buf,  si zeof ( buf ) ) )  <  01 
errexit ( "sortceive" ) ; 

i  f printf ( stderr ,  "read  %d  bytes  from  sg\n" ,  ent);  */ 

i  if  ((ent  =  read(diskfd,  buf,  100))  <  0) 

errexit( "read" )  ; 

/*  fprintf (stderr ,  "read  %d  bytes  from  disk\n",  ent);  */ 
return ( ent )  ; 

) 

p*  Close  connection  */ 
sgf i n i i n ( ) 

i 

so c lose (netfdsa ) ; 
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I*  Network  order  to  host  order  transform  */ 
rftoh_f light  () 


|  int  i,  j; 
1  union  { 


char  *tmpc ; 
float  *tmpf : 

I  tmp  ; 
union  { 

char  *tmpc; 
short  *tmps; 

)  tmps ; 

tmp.tmpf  =  &plane.x; 

swap4 ( tmp . tmpc ) ; 

tmp.tmpf  =  &plane.y; 

swap4 ( tmp . tmpc ) ; 

tmp.tmpf  =  &plane.z; 

swap4 ( tmp . tmpc ) ; 

tmps. tmps  =  &plane . azimuth ; 

swap2 ( tmps . tmpc ) ; 

tmps. tmps  =  &plane . elevation ; 

swap2 ( tmps . tmpc ) : 

tmps. tmps  =  &plane . twist ; 

swap2 ( tmps . tmpc ) ; 


I*  Host  order  to 
rton_f light  () 


network 


transform 


int  i,  j  : 
union  { 

char  *tmpc; 
float  *tmpf ; 
>  tmp : 
union  ( 

char  *tmpc; 
short  *tmps; 
'i  tmos  ; 


tmp.tmpf  =  &plane.x; 

swap4 ( tmp . tmpc ) ; 

tmp.tmpf  -  &plane.y; 

swap4 ( tmp . tmpc ) ; 

tmp.tmpf  =  &plane.z; 

swap4 ( tmp . tmpc ) ; 

tmps. tmps  =  &plane . az imuth ; 

swap2 ( tmps . tmpc ) ; 

tmps. tmps  =  fcplane . elevation ; 

swap2 ( tmps . tmpc ) ; 

tmps. tmps  =  &plane . twi st ; 

swap2 ( tmps . tmpc ) ; 


J*  This  subroutine  is  here  for  documentation,  it  is  on  simnet.ccd  */ 


swap4(char  *ptr) 


char  tmp; 


tmp  =  *ptr; 

*ptr  =  * ( ptr+3 ) ; 

*( ptr+3)  =  tmp; 
tmp  =  * ( ptr+1 ) ; 

*( ptr+1)  =  * ( ptr+2 ) ; 
*(ptr+2)  =  tmp; 


v'*  This  subroutine  is  here  for  documentation,  it  is  on  simnet.ccd  */ 

r 

swap2(char  *ptr) 

j  char  tmp: 

tmp  =  *ptr; 

I  *ptr  =  * ( ptr+ 1 1 ; 
j  * ( ptr+1 )  =  tmp; 


isdav  Dlanef  ) 


f pr i ntf ( stderr , 
I  f pr i ntf ( stderr , 


for i ntf i stderr , 

for i ntf f stderr , 
f pr i ntf ( stderr , 

f print f ( stderr , 

f print f ( stderr  , 

f  pr i ntf ( stderr  , 
fprintf (stderr, 

f pr i ntf I stderr , 


"plane  id  %ld\n",  plane .planeid ); 

"version  %c\t  cmd  %c\t  type  %d\t  alive  %d\t  myname  %s\n" 
pi ane . vers  ion ,  plane.cmd,  plane. type,  plane. alive, 
plane . myname ) ; 

"status  %ud\t  won  %ud\t  lost  %ud\ n" , plane . x . pi ane . v , 
plane . z ) ; 

"x  %f\t  y  %f\t  z  %f \n" , pi ane .x , plane .y , plane . z ) ; 

"azimuth  %d\t  elevation  %d\t  twist  %d\n" , plane . azimuth , 
plane . el evat ion , plane . twist ) ; 

"mstatus  %d\t  mx  %f\t  my  %f\t  mz  %f \n" , plane . mstatus , 

^ J  ane . mx , plane . mv  Diane. mz) ; 

"lasL^mx  %f \t  lasc_my  %f\t  last_mz  %f \n” ,  plane. last  mx. 
plane . last_my , plane . last_mz ) ; 

"kill  %id\t  tps  %f\n",  plane. kill,  plane. tps); 

"air  speed  %d\t  thrust  %d\ n" , pi ane . a irspeed , 
plane . thrust ) ; 

"wheels  %d\t  elevator  %d\t  mtype  %c\n" , plane .wheel s . 
pi ane . el evator ,  plane .mtype ) ; 
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z************************************************************************^^ 
s imnet2 . h 

SIMNET  DATA  STRUCTURE  DECLARATIONS 


**************************************************************************** 7 

#define  TANKA  0x68  /*  02-cf-If-30-27-68  */ 

#define  TANKB  0xff95  /*  C2-cf-lf-30-27-95  */ 

#define  MCC  0x09  /*  02-cf-l f-30-28-09  */ 

#def ine  ANZR  0x14  /*  08-00-09-00-ba-l 4  */ 


typedef  struct  ( 

unsigned  version  :4; 
unsigned  length  :12 
unsigned  protocol  :8; 
unsigned  kind  :8; 

!  PDUHeader; 


/*  version  of  protocol  */ 

/*  length  of  PDU  in  octets  */ 

/*  protocol  PDU  belongs  to  */ 

/*  type  of  PDU  within  protocol  */ 


/*  version  field  */ 

^define  protocolVersionFeb87  0 
^define  protocolVers ionNov87  1 


y*  protocol  field  */ 
^define  protocolNone 
^define  protocolMgmt 
-^define  protocolSim 
|«def  ine  protocolData 
#define  protocolXfer 
^define  DrotocolDiaa 


/*  kind  field  */ 

^define  activatePDUKind  1 
wdefine  act i vatingPDUKind  2 
^define  deactivatePDUKind  3 
#define  vehicleAppearancePDUKind  4 
1/*  ^define  UNUSED  5 
^define  veh iclelmpactPDUKind  6 
^define  groundlmpactPDUKind  7 
rfdefine  indirectFirePDUKind  8 
Wdefine  serviceRequestPDUKind  9 
Vdefine  resupplyOf f erPDUKind  10 
^define  resupplyReceivedPDUKind  11 
^define  repairPDUKind  12 
vdefine  repairedPDUKind  13 
Idefine  col 1 isionPDUK ind  14 
^define  firePDUKind  15 
fdefine  radiatePDUKind  16 
^define  resupplyCancelPDUKind  17 

v*  Vehicle  Type  Identifier  Field  */ 
^define  vehMainBattleTank  1 

Idefine  vehPersonnelCarr ier  2 

(define  vehCommandPost  3 

define  vehAmmuni tionTruck  4 

Idefine  vehFuelTruck  5 

!  define  vehSupplyTruck  6 

define  vehMortatCarrier 
define  vehSPHowitzer  8 

(define  vehRecoveryVehicle  9 

define  vehFISTVehicl e  10 


/*  the  Feb.  1987  version  of  the  protocols  */ 
/*  the  Nov.  1987  version  of  the  Drotocols  */ 


/*  no  protocol  —  PDU  used  for  padding  */ 
/*  the  Network  Management  Protocol  */ 

/*  the  Simulation  Protocol  */ 

/*  the  Data  Collection  Protocol  */ 

/*  the  File  Transfer  Protocol  */ 

/*  the  Diagnosis  Protocol  */ 


/*  Activate  PDU  */ 

/*  Activating  PDU  */ 

/*  Deactivate  PDU  */ 

/*  Vehicle  Appearance  PDU  */ 

/*  Unused  PDU  */ 

/*  Vehicle  Impact  PDU  */ 

/*  Ground  Impact  PDU  */ 

/*  Indirect  Fire  PDU  */ 

/*  Service  Request  PDU  */ 

/*  Resupply  Offer  PDU  */ 

/*  Resupply  Received  PDU  */ 

/*  Repair  PDU  */ 

/*  Repaired  PDU  */ 

/*  Collision  PDU  */ 

/*  Fire  PDU  */ 

/*  Radiate  PDU  */ 

/*  ResupplyCancel  PDU  */ 

/*  Ml  or  T72  main  battle  tank  */ 
/*  M2,  M3  or  BMP  */ 

/*  M577  Command  Pest  */ 

/*  M977  Ammo  Truck  */ 

/*  M978  Fuel  Truck  */ 

/*  M35-A2  Truck  */ 

/*  Ml 06  Carrier  */ 

/*  Ml 09  Howitzer  */ 

/*  M88  Recovery  */ 

/*  Fire  Support  */ 
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I 


'*  Appearance  Field  Descpritors  */ 


typedef  struct  { 

PDUHeader  pduHdr ;  /* 

unsigned  char  exerciselD;  /* 
unsigned  char  padding; 
unsigned  short  vehiclelD;  /* 
SimPDUHeader ; 

typedef  struct  ( 


unsigned  char  role;  /* 

unsigned  char  batallion;  /* 

unsigned  char  company;  /* 

unsigned  char  bumper;  /* 

Veni cleRole ; 


/*  role  field  */ 

^define  rol eSi mulator  0  /* 


^define  roleOPFOR  1 

;t;*i 

Idefine  rol eGunneryTarget  2 

J  define  rol eAmmoTruck  3 

define  rol eFuelTruck  4 

jdefine  rol eMa i ntTeam  5 

Idefine  roleS2  6 


#define  roleS3 

| 

^define  roleFSF. 
Idefine  roleTACP 


7 

8 

9 


/* 

/* 

/* 

/* 

/* 

/* 


/* 


/* 


/* 


'define  rol  eAdminl.ogCenter  10 


/* 


define  roleOther 


99 


/* 


version,  length,  protocol,  PDUkind  */ 
exercise  identifier  */ 

vehicle  identifier  */ 


role  of  vehicle:  ammo  truck, 

fuel  truck,  etc  */ 

batallion  (task  force)  vehicle  belongs 
to  */ 

company  (team)  vehicle  belongs  to  */ 
bumper  number  within  company  */ 


a  vehicle  operated  by  a  full  crew, 
simulated  by  a  crewed  vehicle 
simulator  */ 

a  vehicle  simulated  by  a  Semi -automated 
Forces  system  */ 

a  gunnery  target,  such  as  that  simulated 
by  an  MCC  system  */ 
an  ammunition  truck,  such  as  that 
simulated  by  an  MCC  system  */ 
a  fuel  truck,  such  as  that  simulated  by 
an  MCC  system  */ 

a  maintenance  team  ,  such  as  that 
simulated  by  an  MCC  system  */ 
a  batallion  S2's  vehicle,  such  as  that 
simulated  by  an  MCC  system  as  part  of  a 
tactical  operations  center  (TOC)  */ 
a  batallion  S3's  vehicle,  such  as  that 
simulated  by  an  MCC  system  as  part  of  a 
TOC  */ 

a  batallion  fire  support  officer's 
vehicle,  such  as  those  simulated  by  an 
MCC  system  as  part  of  a  TOC  */ 
a  batallion  tactical  air  control  party 
vehicle,  such  as  those  simulated  by  an 
MCC  system  as  part  of  a  TOC  */ 
a  batallion  admin/log  center  vehicle, 
such  as  that  simulated  by  an  MCC 
system  */ 

any  other  vehicle  not  in  one  of  the  above 
categories  */ 


*  company  field  * / 


Idef  i  ne 

ass i gnedBatta 1  ion 

1 

/* 

'  def i ne 

ass i gnedScoutPl t 

2 

/* 

#def i ne 

ass i one dTACP 

3 

/* 

the  vehicle  is  assigned  to  no  unit  in 
particular  within  the  batallion  */ 
the  vehicle  belongs  to  the  batal lion's 
scout  platoon  */ 

the  vehicle  belongs  to  the  batal lion's 
tactical  air  control  party  */ 
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/*  include  ID  of  described  number  */ 


tvpedef  struct  f 
■  SimPDUHeader  hdr; 

/*  Common  to  all  vehicles  */ 
VehicleRole  role;  /* 

j  unsigned  char  alignment;  /* 


include  ID  of  described  number  */ 
offense,  defense,  friend,  or  foe  */ 


unsigned  char  vehicleClass ;  /*  class  of  vehicle  */ 


/*  unsigned  short  appearance;  /* 
/*  struct  ( 

unsigned  vehKindMask  :  6; 
unsigned  uni  : 

unsigned  vehDestroyed  : 
unsigned  vehSmokePlume  : 
unsigned  vehFlaming  : 

unsigned  vehDustCloudMask 
unsigned  un2  : 

unsigned  vehTOWLauncherUp 
unsigned  vehEngineSmoke  : 
unsigned  un3  : 

)  appearance;  */ 
struct  ( 

unsigned  vehSmokePlume  : 
unsigned  vehFlaming  : 

unsigned  vehDustCloudMask 
unsigned  un2  : 

unsigned  vehTOWLauncherUp 
unsigned  vehEngineSmoke  : 
unsigned  un3 

unsigned  vehKindMask  :  6: 
unsigned  uni 

unsigned  vehDestroyed  ; 
i  appearance; 

float  rotation  [3]  [3];  ./*  vel 

float  location  [3];  /*  exc 

short  grid  [21;  /*  apt 

unsigned  short  engineSpeed;  /*  enc 

/*  unsigned  short  padding;  */ 
unsigned  short  sequence;  /*  sec 


type  of  vehicle  and  appearance  */ 


vehicle  rotation  */ 
exact  vehicle  location  */ 
approximate  vehicle  location  */ 
engine  speed,  in  RPM  */ 

sequence  #  for  vehicleAppearancePDU  *. 


/*  Depending  on  vehicle  class  */ 
union  f 

/*  If  a  simple  moving  vehicle,  without  turret  ...  */ 
struct  { 

float  velocity  [31:  /*  velocity  (m/sec/15)  */ 

)  s i mp 1 e ; 

/*  If  a  tank  */ 
struct  ( 

float  velocity  [3]:  /*  velocity  (m/sec/15)  */ 

unsigned  short  turretAx imuth ; 

/*  turret/hull  orinntation  */ 

unsigned  short  gunEl evat i on ;  /*  gun/turret  elevation  */ 

}  tank; 

)  u; 

VehicleAppearancePDU ; 


/*  alignment  field  */ 
idefine  alianedFoe 


/*  the  vehicle  appears  unfriendly  to  all 
participants  */ 
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^define  al ignedOf f ense  1 

define  al ignedDef ense  2 

define  al ignedFr iend  3 


it 


*  vehicle  class  field  */ 
define  vehicleClassStatic 


1 


(define  vehicleClassSimple  2 


jdefine  vehicleClassTank  3 


tvpedef  struct  { 

unsigned  char  ammunition: 
1  unsigned  char  fuze; 

unsigned  char  quantity; 

I  unsigned  char  rate; 

BurstDescriptor ; 


/*  the  vehicle  is  on  the  offense  team  */ 
/*  the  vehicle  is  on  the  defense  team  */ 
/*  the  vehicle  appears  friendly  to  all 
participants  */ 


/*  the  vehicle  is  always  stationary  when 
visible,  and  it  has  no  independently 
movable  parts  */ 

/*  the  vehicle  can  move,  but  is  has  no 
independently  movable  parts  */ 

/*  the  vehicle  can  move,  and  it  has  a  turret 
and  a  gun  barrel  */ 


/*  type  of  ammunition  fired  */ 

/*  type  of  fuze  used  */ 

/*  number  of  rounds  in  burst  */ 

/*  rate  of  fire,  rounds  per  second  */ 


i*  ammunition  field  */ 

pefine  ammoHEi 25  1  /* 
^define  ammoHEATl 0 5  2  /* 
^define  ammoAPDS25  3  /* 

(define  ammoAPDSlOh  4  /* 

[define  ammoTP25  5  /* 
pefine  ammoBomb500  6  /* 
^define  ammoHE107  7  /* 

Jdefine  ammoHE155  B  /* 
^define  ammoMiss.i  leTOW  9  /* 
/ *  fuze  field  * / 

jdefine  fuzePointDetonating  1  /* 
(define  f uzeProximity  2  /* 


jypedef  struct  { 

unsigned  char  targetType : 2 ;  /* 
unsigned  :  14; 

unsigned  short  vehicleTD;  /* 
Ta rget Descriptor; 


25  mm  high  exposive  incendiary  shell  */ 
105  mm  high  exposive  anti-tank  shell  *./ 
25  mm  armor  piercing  discarding  sabot 
shell  */ 

105  mm  armor  piercing  discarding  sabot 
shell  */ 

25  mm  target  practice  shell  */ 

500  lb.  bomb  */ 

107  mm  (4.2in.)  high  exposive  mortar 
shel 1  * / 

155  mm  high  exposive  howitzer  shell  */ 
TOW  anti-tank  missile  */ 

point  detonating  fuze  */ 
proximity  fuze  */ 


what  is  known  about  the  target  */ 
ID  of  target  vehicle,  if  known  */ 


/*  targetType  field  */ 
define  targetlJnknown  0 
pefine  targetNotVeh i cl e  1 


"jlef  ine 

/*  */ 

bef  i  ne 
nef  i  ne 
#def ine 


targetVehi cl e  2 


MYTANKTD  16 

MAXBUF  8192 

HEADER_ST ZE  14  /*  ethernet 


/*  the  target  vehicle  is  not  known  */ 

/*  the  target  is  known,  but  it  is  not  a 
vehicle  */ 

/*  the  target  is  known  and  it  is  not  a 
vehicle  */ 


header  size  including  our  header  */ 


t 


ruct 


ether  {  /*  first  three 

char  e_dhost[6]; 
char  e  shost [ 6  ]  ; 
short  etvpe; 


fields  required  for  any  link  level  packet  */ 


/* 

00-05 

ethernet 

dest i nati on 

*/ 

/* 

06-1  1 

ethernet 

source  *  / 

/* 

1  2-1  3 
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ethernet 

packet  type 

*  / 

struct  ( 

|  short  e_  dataiength ;  /*  14-15  user  data  lenqth  */ 

I  char  e„data [ 1 51  2-HEADER, SIZE ] ;  /*  16-1512  data,  „iax  size  is  .512  */ 

i  siinnet_data  ; 

I''. 

Jruon  { 

struct  ( 

j  unsigned  length  :12; 

I  unsigned  version  :4; 

1  i__datalength : 

I  short  p _datalength ; 

dataiength; 

typedef  union  | 

1  struct  { 

'  char  DATAO.MLV  (1512.  -  HEADER  SIZE]; 

}  DATAONLYPDIJ; 

I  struct  { 

j  PDUHeader  ANYHDR; 

char  data  [1512  -  HEADER, SIZE  4]; 

1  ANY PDU; 
struct  ( 

Veh ic 1 eAppearancePDU  VADATA; 

)  VAPDU ; 

•••••;  PDU ; 


^define  MAXPKTSIZE  1614 
I*  char  send  _.addr  f  6  J  : 

J*  char  recv_addr  [  6  1  ; 
char  mv,addr ( 6  1  ; 
struct  exosopt  opt; 

Idefine  ETYPE  htons  !  0x520B  ) 
-•define  HET,T COPTER  1  1  11 

^define  HEL I COPTER  1 2  12 


Idef  i  ne 
IDIJ 


A 1  0  13 
pdu  _buf ; 


struct  ether  ether  but  r 


/*  total  size  of  largest  pos  ■  ole  packet  */ 

*  our  ethernet  MAC  aduress  *•/ 

/*  his  ethernet  MAC  address  */ 

/*  my  ethernet  MAC  address  */ 

/*  EXOS  board  options  include  own  address  */ 
/*  arbitrary  unused  ethernet  type  */ 


s i mnet . ccd 

This  file  contains  the  c  code  for  the  sininet  Ml  tank  simulator. 


/*  Initialize  the  svnchronous/non-blocking  link-level  socket  connection  */ 

|et  i  n  i  t  (  ) 

i nt  rc  ,  on  =  1  ; 

j  /*  Check  that  the  driver  is  loaded,  and  g°t  our  own  ethernet  MAC 
'  address  from  the  EXOS  board  */ 

if  ( ! loaded; ) )  errex i t ( "dr i ver  NOT  loaded") ; 

1  if  ( ipi nf o ( &opt )  <  0)  errex it ( "could  not  get  own  ethernet  MAC  address"!; 

]  memcpv ( my_addr ,  not . xo_ eaddr ,  s i zeot ( mv_addr 1 ) : 

I  /*  Display  my  address  */ 

I  f  pr  i  nt f  (  stderr  ,  "my  a^dr  -  %02x-%02.x-%C  2x-%02x- o02x-%02x\ n"  . 

my  iddrjO],  my  addrfl],  my_addr[2], 
my_addrf.'Sj,  mv  addrM],  my_addr{511; 

/*  Initialize  the  simnet  rece i ver /sender  socket  type  */ 
recv_ socket . s 1 _ types [ 0 ]  -  ETYPF: 

'*  Make  a  link  level  socket  call  */ 

if  (  (  netf  d--socket ;  SOCK  FTH  ,  (struct  sockproto  *  1  C  ,  i^ecv,  socket ,  0  1)  <  01 
if  ( orrno  =  =  F.AOCF.S ) 

j  errexit  i "link-level  access  must  be  enabled  with  -1  option  on  notlo 

else  errexit' "cannot  create  socket" 1 ; 

j  f  pr  i  ntf  (  stderr  ..  "socket  f  d  --  >tfdi; 

/*  Synchronous  non  blocking  mod 
l  soioctl  (netfd  ,  S  T  OCSI.T  NO  HR  .  Stir 
J  rc  --  soioctl  (netfd,  FTONRTO,  Son  i  ; 

i  f  (  rc  v  o )  ! 

ex  per  ror  f  "  soioctl  (  .  .  .FTONRTO,  Son)  "  )  ; 
return  < - 1  i  : 

> 

return ( 0 ) : 


*  Read  synchronous /non  b  locking  mode  packet  */ 

*  netread  (struct  ether  but  i  * 
etread  ( ) 

int  ent; 

I 

1  ent  =  r  ',ec:ei'  efretfd,  (struct  sockaridr  *)0,  Sether  buf  ,  MAXPKTST /.F )  : 

if  ((ent  <  0)  &&  ( errno  ==  EWOUT.DBI.OCK )  1 
I  ;  /*  No  network  data  */ 

|  else 

if  (ent  •  0)  exper ror ( "sorece i ve  read  error");  /*  Error  condition  * 

|  return  ( ent  i  ; 

'*  Write  svndironousTcn  blocking  mode  packet  */ 

'  retwri  te  (struct  ether  *buf  >  *  ' 
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netwrite  <  ) 
j  int  cnt,  netcnt: 

data  lenqth  .  p_  data!  enath  =  ntohs  ( ether_buf  .  si mnet_data  .  e_data  1  ength  ) 
cnt  =  datalength . i_datalength . length ; 

’  netcnt  =  sosend ( netf d ,  (struct  sockaddr  *)0,  &ether_buf , cnt  +  HEADER 
if  ((netcnt  <  0)  &&  (errno  ==  EWOULDBLOCK ) )  netcnt  =  0; 

!  if  (netcnt  <  0) 

I  errexit f "sosend  write  error”); 

else 

]  if  ((netcnt  >=  0)  &&  (netcnt  <  cnt)) 

J  f pr i nt f ( strierr .  "sosend  :  some  data  has  been  1 ost\n\ 007\0C7” 

) 

1*  Close  synchronous /non  blocking  socket  connection  */ 


\et f i n i 

i ) 

1  int 

off 

n  • 

—  u  , 

) 

i  f 

1  net 

,  1  S.I 

--  0 

,  | 

f  pr  i 

ntf  ( 

std 

err  , 

"  P 1  ea 

se 

wait  up  to  Pd  seconds  for  comp] etionXn" 

t  i  me  1 

i  m  i 

t); 

so  i 

net  1  ( 

net  f 

d  . 

FT  ON 

B  TO,  ft 

of  f 

')  • 

soc 

lose) 

netf 

d  )  : 

*  net 

f  d  - 

-1  ; 

f*  Network  order  to  host  order  transform,  not  all  of  the  data  field  are 
yet.  Add  more  statements  if  needed  and  modify  the  hton  simnet ( )  too 
j*  ntoh.  s  i  rrr et  (  PDU  but  * 

It  oh  sir,  net  •  > 


int  i  ,  ;  : 

u  n  i  o  n  i 

char-  *tmpc: 
unsigned  short  *tmpui; 

>  tmpu i  : 
union  i 

char  *tmpc: 
f  1  oat  *tmpf ; 
t  m  p  ; 

tmp.tmpf  -  &pdu  buf . VAPDU . VADATA . 1 ocat i on [ 0  1  ; 
swap4 ( tmp . tmpC i ; 

tmp.tmpf  -  &pdu  buf  .VAPDU . VADATA .  1  ocat i on  [  1  ]  ; 
swap4 ( tmp . tmpc ) ; 

tmp.tmpf  =  &pdu  but  . VAPDU . VADATA . 1 ocat i on f  2  ]  ; 
swap4 ( tmp. tmpc ) ; 

tmpui.tmpui  -  &pdu  bu f . VAPDU . VADATA . hdr . veh i c 1 e T D ; 
swap2 ( tmpu i . tmpc ) ; 
for  ( i =0 ;  i<=2;  i  ++ ) 

for  (j=0;  j<=2;  j++)  < 

tmp.tmpf  =  &pdu  buf .VAPDU. VADATA. rotation[  i  ]  !  1 ] f 

swa  p4 ( tmp . tmpc 1 ; 

return  (  pdu  bu  ‘  .  ANYPDU .  ANYHDR .  k  i  nd  )  : 


SIZE)  ; 


)  ; 


include 

★  / 


/*  Host  order  to  network  order  transform,  not  all  of  the  data  field  are  included 
i  yet.  Add  more  statements  if  needed  and  modify  the  ntoh_siir.net (  )  too  */ 

I'*  hton_simnet  (struct  PDU  buf)  */ 
hton_simnet  (  ) 

I 

int  i ,  j  ; 
union  { 

char  *tmpc; 
unsigned  short  *tmpui; 

!  tmpui  ; 
union  { 

char  *tmpc : 
float  * tmpf ; 

!  tmp  r 

1  tmp . t  ipf  =  &pdu buf . VAPDU . VADATA . 1 ocat i on [ 0 ] ? 
swap4 ( tmp . tmpc 1 r 

tmp. tmpf  =  &pdu  buf . VAPDU .VADATA . location  [  1 ] ; 
swap4 ( tmp . tmpc 1 : 

tmp.  tmpf  =  &pdu._buf  .  VAPDU .  VADATA .  l  ocation  [  2  J  ; 
swap4 f tmp. tmpc 1 r 

tmpui. tmpui  =  &pdu_buf . VAPDU . VADATA . hdr . vehi cl elD r 
swap? i tmpu i . tmpc i : 
for  i  i =0 :  i  < - ?  :  i  +  +  1 

for  (  j - o  '  i j  +  +  i  ( 

tmp. tmpf  =  &pdu  bu f . VAPDU . VADATA . rotati on [ i ]  [j]: 

swap4 ( tmp . tmpC i : 

return  ■  0  i  : 


*  This  subroutine  does  the  same  work  as  ntohlll,  htonl  <  1  .  *  / 

i  ■ 

| war. 4  i  cha  r  *ptr  > 
c  hi  c;  ’■  f.  rn  T;  r 

! 

|  tmp  -  *ptr; 

*ptr  -  *  (  ptr+  1  : 

* ( ptr+3 i  -  tmp ; 
tmp  -  *  I  p  t  r  + 1  >  : 

*  i  pt  rt  1  i  =  *  <  pt  r  +■  ?  i  r 

*  !  ptr  +■  ?  i  ■■  tmn  : 


*  This  subroutine  does  tno  same  work  as  ntohsl  )  ,  htonsf  )  .  *./ 
;wa  p  ?  ( ch  a  r  *  pt  r  i 

char  tmp : 

tmp  -  *ptr; 

* ptr  =  * ( ptr + 1  t ; 

*  (  ptr+ 1  )  =•  tmp ; 


*  Th  .  s,  subroutine  is  for  debugging  purpose  only,  i  t  wi  1  1  DUMP  the  content  of  a 
link  level  packet  in  hexdec i ma 1  * / 

'*  dump  ether  ( struct  ether  ether  buf )  */ 
dump  ether  ( ) 


netcrnt ; 
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l printf (stderr , "ETHER  contcnt\n" ) ; 

datalength . p_datalength  =  ntohs  ( ether_buf . simnet_data .e_datalength ) ; 
f printf ( stderr , "Source  addr  :  %2x-%2x-%2x-%2x-%2x-%2x\n" , 

ether_buf . e_shost  [0],  ether_buf - e_shost  [1],  ether_buf . e_shost  (21, 
ether_buf . e_shost  [3],  ether_buf -e_shost  [4],  ether_buf . e_shost  [5)1; 
fprintf ( stderr , "Destination  addr  :  %2x-%2x-%2x-%2x-%2x\n" , 

ether_buf .e_dhost  [0],  ether_buf . e_dhost  [1],  ether_buf . e_dhost  [2], 
ether_buf . e_dhost  [3],  ether_buf . e_dhost  [4],  etherbuf . e_dhost  [5]); 
f printf ( stderr , "%2x  " , datalength .p_datalength ) ; 
netcnt  =  datalength . i_datalength . length ; 
for  (i=0,  j  =  3;  i < ( netcnt-HEADER_SI ZE-2 ) ;  i++,  j++)  ( 

fprintf ( stderr , "%2x  ",  ether_buf . simnet_data . e_data [ i ] ) ; 
if  (j  >=  17)  ( 

j=0 ; 

f printf ( stderr , "\n" )  ; 

} 

} 

f pr i ntf ( stderr , "\n"  1  ; 

This  subroutine  is  for  debugging  purpose  only,  it  will  DUMP  the  content  cl  a 
pdu  packet  in  hexdec ima 1  * / 
mp_.pdu  (  ) 


i nt  i ,  i ,  netcnt ; 

f  pr  i  nt  f  (  stderr  ,  " PDU  contentin'1 )  ; 

data  Length . p_datal enath  =  ntohs  ( ether_buf . simnet_data . e _riata ] ength 1 ; 

netcnt  =  datalength.  i_.datalength.  length; 

for  fi=0.  j  =  l  ;  i < ( netcnt-HEADER_SI ZE-2 ) ;  i++,  j++)  ( 

fprintf (stderr, ”%2x  ",  pdu_buf . DATAONLYPDU . DATAONLY [ i ] ) : 

i  f  (  j  >  =  .17)  ! 

j  =  0; 

f pr i nt f ( stderr  ,  "\n"  )  ; 


f  pr  i  ntf ( stderr , "\n"  )  ; 


This  subroutine  is  for  debugging  purpose  only,  it  will  DISPLAY  the  content  of 
a  pdu  packet  */ 
sp 1  ay  pdu  (  ) 


int  i,  j; 
union  j 

char  *tmpc; 
float  *tmpf; 
f  tmp ; 


fprintf(stderr,  "Rot at i on\n" ) 
for  (i=0;  i<=2;  i++) 

for  ( j  =  0 ;  j  <=  2 ;  j++ ) 

fpri ntf ( stderr , "%d  %d 
f printf ( stderr ,  "Locat i on\n" ) 
f  pr i ntf ( stuerr , 
fprintf ( stderr, 
f pr i ntf ( stderr 
f pr i nt f ( stderr  , 


%.]  f  \n"  ,  i  ,  j  ,  pdu^buf  .  VAPDU  .  VADATA  .  rot  at  i  on  [  i  ]  [  )  ] 


"% 1 f \n" , pdu  buf .VAPDU. VADATA. location! 0]); 
"%1 f \n" , pdu  buf .VAPDU. VADATA. location!  1)1; 
"%1 f\n" , pdubuf .VAPDU. VADATA. 1 ocationf 2 ] ) ; 
"%u\n" , pdu  _buf . VAPDU. VADATA. hdr . vehi cl eTD) 
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